Ouvrir une app externe dans une position donnee [FAQ]

**cadetill** · 16/08/2006, 18h13

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** · 16/08/2006, 20h58

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** · 16/08/2006, 22h34

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

**edam** · 16/08/2006, 22h38

Envoyé par Laurent Dardenne

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** · 16/08/2006, 22h42

Envoyé par edam

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

Je plaisante, ça m'arrive qq fois

**edam** · 17/08/2006, 00h18

Envoyé par Laurent Dardenne

Je plaisante, ça m'arrive qq fois

oh;

**cadetill** · 17/08/2006, 09h05

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** · 17/08/2006, 10h38

Envoyé par cadetill

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** · 17/08/2006, 12h53

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** · 17/08/2006, 16h45

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** · 17/08/2006, 23h07

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+

**edam** · 18/08/2006, 11h49

dans

Code :

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

1
2
If CreateProcess(Nil, '"Notepad.exe"', Nil, Nil, False,
                0, Nil, Nil, StartInfo,ProcessInfo) Then

il y a startInfo;: http://msdn.microsoft.com/library/de...upinfo_str.asp

**cadetill** · 18/08/2006, 17h45

Salut

Envoyé par edam

il y a startInfo;: http://msdn.microsoft.com/library/de...upinfo_str.asp

Encore merci edam. Voici c'est que je fais et que ne me fonctionne pas

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
20
21
22
23
24
25
26
 
var
  ret: Boolean;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  with StartupInfo do
  begin
    cb := SizeOf(StartupInfo);
    dwX := 0;
    dwY := 0;
    dwXSize := 100;
    dwYSize := 100;
    wShowWindow := SW_SHOWNORMAL;
    dwFlags := STARTF_USESHOWWINDOW or STARTF_USESIZE or STARTF_USEPOSITION;
    lpReserved := nil;
    lpDesktop  := nil;
    lpTitle    := nil;
    cbReserved2 := 0;
    lpReserved2 := nil;
  end;
 
  ret := CreateProcess(nil, 'notepad.exe', nil, nil, False,
                       CREATE_DEFAULT_ERROR_MODE, nil, nil, StartupInfo, ProcessInfo);
  if not ret then
    ShowMessage('Error (' + IntToStr(GetLastError) + ')');

J'ai regarde sur le net et sur les forums et j'ai vu des exemples comme mon morceau de code, mais les valeur dwX, dwY, dwXSize et dwYSize est comme s'ils n'existen pas et dwFlags a STARTF_USEPOSITION (pour dwX et dwY) et STARTF_USESIZE (pour dwXSize et dwYSize).

Je ne sais pas c'est que je fais mal

Merci encore pour votre aide

A+

**edam** · 19/08/2006, 01h44

voir: http://msdn.microsoft.com/library/de...showwindow.asp

Code :

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

1
2
3
SW_SHOWDEFAULT
Sets the show state based on the SW_ value specified in the STARTUPINFO
 structure passed to the CreateProcess function by the program that started the application.

je pance que tu doit changer

Code :

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

1
2
wShowWindow := SW_SHOWNORMAL;
en wShowWindow := SW_SHOWDEFAULT;

essay;;

**cadetill** · 19/08/2006, 01h51

Salut

J'ai essayer et rien a changer

Bon, j'ai la solution avec FindWindow, mais j'aimerai bien comprendre pourquoi ça ne marche pas

Merci a tous

A+

**edam** · 19/08/2006, 13h11

je peut savoir qui a mis [FAQ] au titre??
si c'est un modérateur, alors il faut qu'il nous aide a touvé le hiq, merci

**Laurent Dardenne** · 19/08/2006, 16h18

Envoyé par edam

je peut savoir qui a mis [FAQ] au titre??
si c'est un modérateur, alors il faut qu'il nous aide a touvé le hiq, merci

Le tag FAQ est à usage interne à l'équipe FAQ Delphi, il permet de retrouver les posts qui sont susceptible d'être intégrer dans la nouvelle version de la faq. C'est moi qui ai placé ce tag mais je n'ai pas le temps de me pencher sur le pb.
La fonction du modérateur n'est pas de répondre à toutes les questions posées sur un forum, d'ailleurs nous n'avons pas réponse à tout, mais de vérifier si la forme des messages (balise code, pas de langage SMS) et le contenu de échanges est conforme à la legislation actuelle.

[edit]
Cette méthode n'est peut être pas la bonne, l'application cible peut forcer sa taille.
Essaie une autre approche avec SetWindowPlacement (après l'appel à FindWindows)...

**cadetill** · 20/08/2006, 14h04

Salut

Envoyé par Laurent Dardenne

[...] (après l'appel à FindWindows)...

Bon, si je dois utiliser FindWindows j'ai déjà la solution avec SetWindowPos

L'unique probleme est savoir quand l'application a fini de demarrer pour faire le FindWindows (pour ça le sleep)

A+

**cadetill** · 21/08/2006, 17h25

Bon

En suivant avec ça.... Je dois positionner 2 fenetres. Une est le Acrobat et une autre est un video en format propriétaire (est un .exe qui a le visualisateur et le video tout ensemble).

Comme nous avons vu ici, je peux mettre le PDF ou je veux avec l'aide de la fonction FindWindows parce que le titre de la fenetre est facile de l'avoir.

Mais avec le video j'ai un probleme. Je ne sais pas quel est le titre de la fenetre (il n'y a pas). J'ai regardé avec le WinSight avec le résultat de la image.

Comme je peux utiliser la fontion FindWindows pour savoir le handle de la fenetre?

Merci encore

A+

**Jipété** · 21/08/2006, 17h35

Comme je peux utiliser la fontion FindWindows pour savoir le handle de la fenetre?

Tu connais quand même le nom de ton exécutable ?
Donc tu énumères tous les process, tu t'arrêtes sur le tien, et là tu énumères toutes ses windows, et tu cherches la main.
Et voilà !
--
jp

Ouvrir une app externe dans une position donnee [FAQ]

Delphi

Discussions similaires

Partager

Partager