1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
{*------------------------------------------------------------------------------
Effectuer un ShellExecute et attendre la fin du process lancé
@Author nicolassalocin
@Version 24/02/2009
@Param vHandle Handle de la fenêtre parent pour toute fenêtre de message
que le système pourrait produire pendant l'exécution de
cette fonction
@Param vOperation Opération à réaliser :
- "open" : La fonction ouvre le fichier spécifié.
Le fichier à ouvrir peut être un exécutable, un document
ou un répertoire.
- "print" : La fonction imprime le fichier spécifié.
Le fichier à imprimer doit être un document.
Si le fichier à imprimer est un exécutalbe, la fonction
ouvre le fichier comme si "open" avait été spécifié.
- "explore" : La fonction explore le répertoire spécifié
@Param vFichier Fichier à ouvrir ou à imprimer ou répertoire à ouvrir ou
explorer. La fonction peut ouvrir un exécutable ou un
document ou imprimer un document.
@Param vParametres Paramètres à passer à l'application si le fichier
spécifié est un exécutable. Si le fichier spécifié est
un document, ne rien passer.
@Param vRepertoire Répertoire d'exécution. S'il n'est pas indiqué le
répertoire en cours est utilisé
@Param vAffichage Indique comment la fenêtre doit être montrée. Utiliser
les variables Delphi :
- SW_HIDE,
- SW_SHOWNORMAL,
- SW_NORMAL,
- SW_SHOWMINIMIZED,
- SW_SHOWMAXIMIZED,
- etc...
@Param vDuree Durée d'attente de la fin d'exécution en millisecondes.
Si la fin de l'exécution n'est pas terminée dans le temps
imparti, la fonction se termine.
Pour attendre à l'infini utiliser la variable INFINITE.
@Return Renvoi un code d'erreur :
- NO_ERROR L'attente a aboutit
- WAIT_FAILED L'attente n'a pas aboutit
- ERROR_FILE_NOT_FOUND Le fichier spécifié n'a pas été
trouvé
- ERROR_PATH_NOT_FOUND Le chemin spécifié n'a pas été
trouvé
- ERROR_DDE_FAIL La transaction DDE a echoué
- ERROR_NO_ASSOCIATION Il n'y a pas d'application
associée à l'extension du
fichier
- ERROR_ACCESS_DENIED Accès refusé
- ERROR_DLL_NOT_FOUND DLL introuvable
- ERROR_CANCELLED La fonction a demandé à
l'utilisateur d'indiquer
l'emplacement de l'application
mais l'utilisateur a annulé la
demande
- ERROR_NOT_ENOUGH_MEMORY Mémoire insuffisante
- ERROR_SHARING_VIOLATION Une violation de partage a été
rencontrée
@Comment Exemples d'utilisation :
//Pour une application
if ShellExecuteAndWait(
Application.Handle,
'open',
'C:\_DELPHI\CODE_TO_DOC\DCTD_cmd.exe',
'VERIF_SRV.xml',
'X:\SIS_BETA\VERIF_SRV\CODE_TO_DOC\',
SW_SHOWNORMAL,
INFINITE
) = NO_ERROR then...
//Pour un document
if ShellExecuteAndWait(
Application.Handle,
'print',
'C:\Mes documents\toto.pdf',
'',
'',
SW_SHOWNORMAL,
INFINITE
) = NO_ERROR then...
-------------------------------------------------------------------------------}
function ShellExecuteAndWait(
vHandle : HWND;
vOperation : string;
vFichier : string;
vParametres : string;
vRepertoire : string;
vAffichage : Integer;
vDuree : DWORD
) : Cardinal;
var
vSEInfo : TShellExecuteInfo;
begin
//Initialisation de la structure ShellExecuteInfo
ZeroMemory(@vSEInfo, SizeOf(vSEInfo));
//Remplissage de la structure ShellExecuteInfo
vSEInfo.cbSize := SizeOf(vSEInfo);
vSEInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
vSEInfo.Wnd := vHandle;
vSEInfo.lpVerb := PAnsiChar(vOperation);
vSEInfo.lpFile := PAnsiChar(vFichier);
vSEInfo.lpParameters := PAnsiChar(vParametres);
vSEInfo.lpDirectory := PAnsiChar(vRepertoire);
vSEInfo.nShow := vAffichage;
//Execution
if ShellExecuteEx(@vSEInfo) then
begin
//ShellExecuteEx OK : attendre la fin du process
Result := WaitForSingleObject(vSEInfo.hProcess, vDuree);
end
else
begin
//ShellExecuteEx KO : renvoyer l'erreur
Result := GetLastError();
end;
end; |
