Discussion :

[od.dev]

Bonjour à tous,

J'ai épluché ShellExecute, que j'utilise depuis longtemps, sans trouver la solution à mon "problème", qui n'en est pas vraiment un d'aileurs.
Je me demandais, en fait, s'il n'existait pas un moyen pour dimenssionner la fenêtre de l'application lancée par ShellExecute (ou, justement, un autre moyen).
Ce qui permettrait, par exemple, de limiter la taille des fenêtres ouvertes successivement (actuellement avec plusieurs ShellExecute) et de les positionner proprement côtes à côtes.
Ce qui serait beau.

Merci d'avance.

[Paul TOTH]

c'est l'application lancée qui décide de ses dimensions...cf TForm.Position !

[Andnotor]

Tu peux toujours passer par FindWindow et SetWindowPos ou MoveWindow.
Je remplacerais cependant ShellExecute par ShellExecuteEx en spécifiant SEE_MASK_WAITFORINPUTIDLE pour m'assurer que la fenêtre principale est créée et en attente.

Un exemple avec explorer.exe fait pour un client en Pascal Scripting (RemObjects)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function FindWindow(lpClassName, lpWindowName: PChar): Longint; external 'FindWindowA@user32.dll stdcall';
function SetWindowPos(Wnd: Longint; hWndInsertAfter: Longint; X, Y, cx, cy: Integer; uFlags: UINT): BOOL; external 'SetWindowPos@user32.dll stdcall';
 
var
  Wnd :Longint;
 
begin
  Exec('open', 'explorer.exe', '', '', SW_SHOW, ewWaitIdle);
 
  //Windows XP
  Wnd := FindWindow('ExploreWClass', '');
 
  if Wnd = 0 then
    //Windows Vista+
    Wnd := FindWindow('CabinetWClass', '');
 
  if Wnd <> 0 then
    SetWindowPos(Wnd, 0, 0, 0, 800, 538, 0)
end.