Wenn ich die maximale Länge nicht setze, steht dort der Wert 17394.
Nachdem ich jetzt meine Function um
Delphi-Quellcode:
var
...
doserr : DWORD;
Error : PChar;
begin
...
doserr := RtlNtStatusToDosError(Status);
SetLastError (doserr);
GetMem (Error, 255);
FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER or
FORMAT_MESSAGE_FROM_SYSTEM,
nil,
GetLastError,
0,
@Error,
255,
nil);
ShowMessage(Trim(Error));
finally
...
ergänzt habe, bekomme ich als Fehler:
Zitat:
---------------------------
Filetime
---------------------------
Unzulässiger Zugriff auf einen Speicherbereich.
---------------------------
OK
---------------------------
