Also mit der Userrights Beispiel kommst du nicht weiter.
Der Quelltext von Nico funktioniert in Vista oder neuer nicht immer korrekt, da kein Integrity Label überprüft wird.
Was machen? Das mal ausprobieren.
Delphi-Quellcode:
var hFile : THandle;
hFile := CreateFile(PChar(filename), DELETE, 0, nil, OPEN_EXISTING, 0,0);
if (hFile = INVALID_HANDLE_VALUE) then
begin
if GetLastError() = ERROR_ACCESS_DENIED then ...
if GetLastError() = ERROR_FILE_NOT_FOUND then ...
end
else
CloseHandle(hFile);