Discussion :

[ddubois]

Bonjour,

J'ai un soucis pour obtenir le texte en clair de l'erreur suite à un Shellexecute (que j'utilise sciemment au lieu de TProcess)


if ShellExecute(handle,'open',Pchar('calc.exe'),nil,nil,SW_SHOWNORMAL)<=32 then ShowMessage(SysErrorMessage(GetLastError));

GetLastError est un integer. La boite de dialogue ne renvoie aucun message, juste une icone, si je remplace calc.exe par toto.exe par exemple, au lieu d'afficher quelque chose du genre : "fichier non trouvé".

Merci de vos suggestions.

(Je suis preneur avec TProcess si la gestion des erreurs est incorporé)

[Alcatîz]

Bonjour,

La fonction FormatMessage permet de récupérer un message d'erreur du système.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Var Chaine : Array [0..511] of Char;   (* Chaîne devant recevoir le message du système *)
 
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,Nil,GetLastError,0,@Chaine,SizeOf(Chaine),Nil);

[ddubois]

pour FormatMessage j'ai le message d'erreur suivant :

Unit1.pas(83,20) Error: Identifier not found "FormatMessage"

FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,Nil,GetLastError,0,@Chaine,SizeOf(Chaine),Nil);

Application.MessageBox(Chaine,0,0);

Faut il rajouter une clause Uses particulière ?

[Alcatîz]

C'est une fonction de l'API Windows (kernel32), ce doit être l'unité Win32int si je ne me trompe (désolé, pas le temps de tester dans l'immédiat) ?

[DOLPat®]

pour FormatMessage j'ai le message d'erreur suivant :

Faut il rajouter une clause Uses particulière ?

Il suffit de rajouter l'unité windows à la clause uses de l'unité.