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