Hallo Glados,
ein Problem hatte die
Unit aber, wenn man das Base directory selbst entfernt läuft der Thread wild.
Das kann man aber leicht beheben:
Delphi-Quellcode:
begin
ErrorMessage := SysErrorMessage(GetLastError);
SignalError(ErrorMessage);
Terminate; //S4: Added 08.11.17: Prevent endless loop when removing base directory
Exit;
end;
end;
end
else
begin
ErrorMessage := SysErrorMessage(GetLastError);
SignalError(ErrorMessage);
end;
Ich kann dir die
Unit zuschicken.
Rollo