Discussion :

[cadetill]

Salut

J'ai besion de faire una app qui ouvre une autre. Ça est facile avec ShellExecute mais..... j'ai besoin de le faire avec une taille determinee et dans une position especifique

Un exemple: je veux ouvrir le word et le Acrobat mais le Word doit s'ouvrir dans la coordonée (0,0) et avec une taille de 100x100 et le Acrobat doit s'ouvrir dans la coordonée (101x0) et avec une taille de 50x100

Commet peux je le faire?

Merci a tous

A+

[edam]

http://docvb.free.fr/apidetail.php?idapi=146
mais avant voir :
http://docvb.free.fr/apidetail.php?idapi=61
http://docvb.free.fr/apidetail.php?idapi=202
pour obtenir le handle

[Laurent Dardenne]

Du VB ?
Mais que diable faisait-il dans cette galére...
Il n'y a pas ça dans la FAQ Delphi

[edam]

Du VB ?
Mais que diable faisait-il dans cette galére...
Il n'y a pas ça dans la FAQ Delphi

j'ai donnée ces lien pour les explication et en plus pour voir autre API
malheuresement il n'y a pas de cite en delphi comme cella

[Laurent Dardenne]

j'ai donnée ces lien pour les explication et en plus pour voir autre API

Je plaisante, ça m'arrive qq fois

[edam]

Je plaisante, ça m'arrive qq fois

oh;

[cadetill]

Salut

Merci pour la réponse. Je ne sais pas de VB mais je vais tenter de le compendre et de le faire en Delphi

Si je peux le faire, je mettrai ici la façon et mettre le résolu

Merci encore une autre fois

A+

[edam]

Je ne sais pas de VB mais je vais tenter de le compendre et de le faire en Delphi

pas la peine de comprendre le vb, ce sont des api que tu peut chercher sur ce cite comment les utilisé, pour plus d'explication sur ces api tu peut les cherché sur internet (voir meme msdn de microsoft ou win32.hlp installé avec delphi)

[cadetill]

Salut

oui oui, j'ai vu

Bon, ici un morceau de code pour voir comme le faire

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  HInst: THandle;
begin
  ShellExecute(0, 'OPEN', 'notepad', nil, nil, SW_SHOWNORMAL);
  Sleep(100);
  HInst := FindWindow(nil, 'Sin título - Bloc de Notas');
  SetWindowPos(HInst, HWND_TOP, 0, 0, 500, 500, SWP_SHOWWINDOW);
end;

je dois mettre un Sleep parce que si non, le FindWindow ne trouve pas la fenetre

Bon, merci pour les APIs une autre fois

A+

[edam]

tu as du voir ce lien avant, pour récupéré directement le handle de l'aplication executé: http://delphi.developpez.com/faq/?pa...oleapplication

[cadetill]

Salut

Merci pour le lien edam, mais j'ai essayer de le faire avec CreateProcess mais je n'arrive pas

Je fais ça

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  StartInfo.cb := SizeOf(StartInfo);
 
  CreateProcess(Nil, '"Notepad.exe"', Nil, Nil, False, 0, Nil, Nil, StartInfo, ProcessInfo);
  SetWindowPos(ProcessInfo.dwProcessId, HWND_TOP, 0, 0, 500, 500, SWP_SHOWWINDOW);

Peut etre je dois faire quelque chose de plus ou peut etre que le handle de ProcessInfo c'est le handle du process et pas de la fenetre du process. Je ne sais pas

Merci en avance

A+