Atrybuty pliku

Witam ! chce sprawdzic a następnie zapisac atrybuty pliku ale cos mi nie wychodzi :( uzywam takiego kodu

var
Plik:File;
Atrybuty:Word;
begin
AssignFile(Plik, 'jakis tam plik.txt');
Atrybuty:=GetFileAttributes(Plik);
SetFileAttributes(Plik,0);
Reset(Plik,1);
CloseFile(Plik);
end;

chodzi o zmiane file na Pchar jesli ktos moze mi pomóc to był bym wdzięczny narka

Skorzystaj z:

function FileSetAttr(const FileName: string; Attr: Integer): Integer;
function FileGetAttr(const FileName: string): Integer;

W helpie jest opis.