Salut,
par rapport au code que me propose olivthill, je n'ai pratiquement rien changé; voici le code modifié:
procedure TForm1.Button1Click(Sender: TObject);
begin
BOOL ExecuteInfAndWait(char *inf)
char tinf[MAX_PATH + 2];
SHELLEXECUTEINFO si;
MergePathAndName(tinf, tempFolderName, inf);
tinf[strlen( tinf ) + 1] = 0;
si.cbSize = sizeof(si);
si.fMask = SEE_MASK_NOCLOSEPROCESS;
si.hwnd= 0;
si.lpVerb= 'Install';
si.lpFile = tinf;
si.lpParameters=0;
si.lpDirectory = tempFolderName;
si.nShow =SW_SHOWNORMAL;
if ( ShellExecuteEx( &si ) == 0 )
DWORD r = GetLastError();
char t[ 20 ];
wsprintf( t, "%d", r );
Conf:= MessageDlg(('Execution of inf failed'), mtWarning, mbOKCancel,0);
return FALSE;
end;
WaitForSingleObject( si.hProcess, INFINITE );
return TRUE;
Execute('mon_driver.inf');
end;
Merci de votre aide
Samantha
---------------
La vie est un long fleuve tranquile qui ne vaut d\\'être vécue que si l\\'on est heureux