Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.142 Beiträge
 
Delphi 12 Athens
 
#4

AW: GetLastError over Network

  Alt 11. Jul 2011, 16:00
Da DeleteFile bei dir ausgeführt wird, sollte es auch einen ErrorCode liefern. Aber es wäre gut, wenn du diesen Code direkt nach DeleteFile abfragst und nicht zwischendurch noch einige andere WinAPIs aufrufst, welche ebenfalls diesen Code setzen können/könnten (wie z.B. in User.Text).

Delphi-Quellcode:
if DeleteFile('\\' + Host.Text + '\C$\Users\' + User.Text + '\AppData\Local\Mainsoft\Harmony\configuration\config.ini') then
  Liste.Items.Add('success on user' + User.Text)
else
begin
  E := GetLastError;
  Liste.Items.Add('ERROR on ' + User.Text + '-> '+ SysErrorMessage(E));
end;
Bzw. das Ganze optisch noch etwas zusammenhängender:
Delphi-Quellcode:
if not DeleteFile('\\' + Host.Text + '\C$\Users\' + User.Text + '\AppData\Local\Mainsoft\Harmony\configuration\config.ini') then
begin
  E := GetLastError;
  Liste.Items.Add('ERROR on ' + User.Text + '-> '+ SysErrorMessage(E));
end else
  Liste.Items.Add('success on user' + User.Text);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (11. Jul 2011 um 16:33 Uhr)
  Mit Zitat antworten Zitat