Schreibrechte abfragen?

[himitsu]

ok, geb mich geschlagen ... schön das mal geändert zu wissen, es es dann die ganze Zeit falsch im Kopf

Delphi-Quellcode:

Var E1, E2: LongWord;
begin
  SetLastError(123);
  E1 := GetLastError;
  E2 := GetLastError;
  SetLastError(123);
  MessageDlg(Format('%d %d', [E1, E2]), mtInformation, [mbOK], 0);
  MessageDlg(IntToStr(GetLastError), mtInformation, [mbOK], 0);