ja, bei Fehler gibt diese Funktion eine 0 zurück
und der Fehlercode wird per SetLastError gespeichert ... läßt sich also bei einem Fehler über GetLastError abrufen
Delphi-Quellcode:
procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
//MapFile erstellen falls noch nicht vorhanden
MapHandle:= CreateFileMapping($FFFFFFFF,
nil,PAGE_READWRITE,0,Sizeof(TData),MapName);
If MapHandle > 0
then
begin
...
end
else
Raise exception.Create('
Mapfile konnte nicht erstellt werden.'#10#10
+ SysErrorMessage(GetLastError));
end;
GetLastError gibt den letzen Fehlercode zurück
und SysErrorMessage wandelt diesen in einen String um.