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