Problem z nadaniem Atrybutu w AUTOSTART

Witam. Mam problem z nadaniem atrybutu dla skórtu znajdującego się w autostarcie. Korzystałem z artykułu na waszej stronie ale wciąż mam error podczas próby kompilacji:

[Error] Unit1.pas(102): Incompatible types: 'String' and 'PAnsiChar'

Tutaj umieszczam kawałek kodu który powinien nadawać atrybut READONLY:

function GetP(Folder: Integer): String; 
var FilePath: array[0..MAX_PATH] of char;
begin
  SHGetSpecialFolderPath(0, FilePath, Folder , False);
  Result:=FilePath;
end;

SetFileAttributes(GetP(CSIDL_STARTUP) + 'AlfaBeta.lnk', FILE_ATTRIBUTE_READONLY);

function GetP(Folder: Integer): String;
var FilePath: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderPath(0, PChar(FilePath), Folder , False);
Result:=FilePath;
end;

Może tak zadziała

BumaDruma napisał(a)

function GetP(Folder: Integer): String;
var FilePath: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderPath(0, PChar(FilePath), Folder , False);
Result:=FilePath;
end;

Może tak zadziała

Niestety do tamtego erroru doszedł jeszcze jeden:

[Error] Unit1.pas(32): Invalid typecast

Chyba już wiem co było źle... wystarczyło przerobić:

SetFileAttributes(GetP(CSIDL_STARTUP) + 'AlfaBeta.lnk', FILE_ATTRIBUTE_READONLY);

na

SetFileAttributes(PChar(GetP(CSIDL_STARTUP) + 'AlfaBeta.lnk'), FILE_ATTRIBUTE_READONLY);

Dzięki za pomoc.