function TForm1.MaxiApp(const sCapt: PChar): Boolean; var hWinHandle: THandle; begin hWinHandle:= FindWindow(nil, sCapt); ShowWindow(hWinHandle, SW_MAXIMIZE); Result:= True; End; procedure TForm1.Button1Click(Sender: TObject); begin MaxiApp('Sans titre - Bloc-notes'); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPostMessage(AppHandle,WM_SIZE,SIZE_MAXIMIZED,0);
PostMessage(hWinHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
ShellExecute(Handle, nil, pchar(d), // d = chemin d'accès à l'executable nil,nil,cmdshow); sCapt := PChar('iGO Zoomer - www.cybersuricate.com'); AppHandle:=FindWindow(Nil, sCapt) ; WaitForInputIdle(AppHandle, INFINITE); // ne marche pas WaitForInputIdle(AppHandle, 20000); // ne marche pas non plus. (10 secondes sont suffisantes) ShowWindow(AppHandle, SW_MAXIMIZE);
procedure TForm1.Button1Click(Sender: TObject); var processInfo: TProcessInformation; startupInfo: TStartupInfo; nTime : Cardinal; begin ZeroMemory(@startupInfo, SizeOf(TStartupInfo)); startupInfo.cb:= SizeOf(TStartupInfo); startupInfo.dwFlags:= STARTF_USESHOWWINDOW; startupInfo.wShowWindow:= SW_SHOW; if not CreateProcess(nil, 'C:\Program Files\Microsoft Office\OFFICE11\winword.exe', nil, nil, False, 0, nil, nil, startupInfo, processInfo) then RaiseLastOSError; nTime:= GetTickCount; WaitForInputIdle(processInfo.hProcess, INFINITE); ShowMessage('Appli initalisée (' + IntToStr(GetTickCount - nTime) + ' millisecondes)'); CloseHandle(processInfo.hProcess); CloseHandle(processInfo.hThread); end;
Function TForm1.MaxiApp(const sCapt: PChar) : boolean; var AppHandle:THandle; i : integer; begin AppHandle:=FindWindow(Nil, sCapt) ; PostMessage(AppHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0); // OK aussi: ShowWindow(AppHandle, SW_MAXIMIZE); end; procedure TForm1.FormCreate(Sender: TObject); var s, s2, d : string; i : integer; processInfo : TProcessInformation; startupInfo : TStartupInfo; nTime : Cardinal; begin S2 :='iGO Zoomer - www.cybersuricate.com'; if (NOT fileexists(ExtractFilePath(Application.exeName)+'iGOZoomer_108.exe')) then begin showmessage('NOT FOUND. - EXITING'); Application.Terminate; end; d := ExtractFilePath(Application.exeName) + 'iGOZoomer_108.exe'; ZeroMemory(@startupInfo, SizeOf(TStartupInfo)); startupInfo.cb:= SizeOf(TStartupInfo); startupInfo.dwFlags:= STARTF_USESHOWWINDOW; startupInfo.wShowWindow:= SW_SHOW; if not CreateProcess(nil, pchar(d), nil, nil, False, 0, nil, nil, startupInfo, processInfo) then showmessage('failed'); WaitForInputIdle(processInfo.hProcess, INFINITE); CloseHandle(processInfo.hProcess); CloseHandle(processInfo.hThread); MaxiApp('iGO Zoomer - www.cybersuricate.com'); application.Terminate; end;