|
Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
Delphi 5 Professional
|
Re: SetFileAttribute
26. Jun 2005, 12:38
Delphi-Quellcode:
var
Attr: DWORD;
begin
if FileExists(FileName) then
begin
Attr := GetFileAttributes(PChar(FileName));
Attr := Attr and not FILE_ATTRIBUTE_HIDDEN;
SetFileAttributes(PChar(FileName), Attr);
end;
Ciao, Sprint.
"I don't know what I am doing, but I am sure I am having fun!"
|