Problem mit Application.MessageBox

[robinWie]

Hallo,

ich will dass wenn ich eine Datei lösche und das nicht geht (z.B durch Schreibschutz) mit einer MessageBox eine Fehlermedlung ausgegeben wird in der Steht "Konnte Datei "<Dateiname>" nicht löschen".

Delphi-Quellcode:

Application.MessageBox('Die Datei "'+PAnsiChar(s)+'" konnte nicht gelöscht werden!',
        'Fehler',
        mb_Ok + mb_IconError);

s beschreibt den Dateiname und ist ein String. Da die MessageBox aber nur PAnsiChar unterstützt habe ich versucht den String mit PAnisChar(s) zu konvertieren, funzt aber nicht

Kann mir jemand Helfen

[Matze]

Hi,

ungestetst, aber versuch's mal so:

Delphi-Quellcode:

Application.MessageBox(PAnsiChar('Die Datei "' + s + '" konnte nicht gelöscht werden!'),
        'Fehler', MB_OK + MB_IconError);

[robinWie]

Funzt, danke für deine High-Speed-Antwort!