Discussion :

[JJJJJ]

Bonjour,

je cherche à suivre un conseil donné dans la FAQ (concernant la mise en avant-plan d'une application). Cette application est instancée par ShellExecute : pas de problème à ce niveau, ca marche.
Le problème apparait (après insertion dans mon programme) du code donné dans la FAQ, c'est à dire:

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
procedure TForm1.Devant;
Var Proc,Nous:Integer;
begin
  Proc:=GetWindowThreadProcessId(GetForeGroundWindow);
  Nous:=GetCurrentThreadID;
  If Proc<>Nous Then
  Begin
    // Nous ne sommes pas l'application en premier plan
    AttachThreadInput(Nous,Proc,True);
    SetForeGroundWindow(Handle);
    AttachThreadInput(Nous,Proc,False);
    Application.BringToFront;
  End Else
  Begin
    // Nous sommes déjà en premier plan
    SetForeGroundWindow(Handle);
  End;
end;

Il est refusé par le compilateur à la ligne suivante :

Code :

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

Proc:=GetWindowThreadProcessId(GetForeGroundWindow);

avec le message : Pas assez de paramètres originaux.

Quelqu'un pourrait-il m'éclairer ?
Merci

[rsc]

Essaie :

Code :

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

1
2
3
4
5
6
....
Var 
  Proc,Nous:DWord;
begin
  GetWindowThreadProcessId(GetForeGroundWindow, Proc);
....

[philnext]

tu as essayé
Proc:=GetWindowThreadProcessId(GetForeGroundWindow,nil);

[rsc]

Au temps pour moi, j'ai confondu thread et process

[JJJJJ]

Maintenant, c'est OK pour la compilation.
Mais il y a un hic : L'application est bien activée, mais elle reste en arrière plan (comme si la procédure n'avait pas été rajoutée).
Et il n'a pas été oublié de passer par cette procédure en début de programme.
La méthode semble pourtant astucieuse et devrait marcher. Décidément je ne comprends pas.

[JJJJJ]

C'est bon, le problème est résolu.
il ne suffisait pas de spécifier :
Application.BringToFront;
il fallait aussi :
Form1.BringToFront;
La FAQ ne donnait pas totalement la solution, mais elle m'a bien mis sur la voie. Merci à ceux qui y ont contribué.

[Pedro]

Merci à ceux qui y ont contribué.

Merci à toi d'avoir fait remonter cette "erreur"