Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
8. Sep 2011
Das steht in SysUtils und hängt ggf. das Ordner-Trennzeichen (also den Backslash unter Windows) an den übergebenen String an.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
8. Sep 2011
Nur schnell heruntergetippt, enthält noch Verbesserungspotential:
procedure SetFileReadOnlyFlag(Directory: string; const mask: string = '*.*';
Recursive: Boolean = false);
const
faNewAnyFileEx = $00017FFF;
var
Rec: TSearchRec;
begin
Directory := IncludeTrailingPathDelimiter(Directory);
if FindFirst(Directory + mask, faNewAnyFileEx, Rec) = 0 then
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
8. Sep 2011
Geht es jetzt ganz simpel um das Schreibschutz-Attribut?