Discussion :

[JJJJJ]

Bonjour,

Dans la FAQ, on trouve la procedure suivante :

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
 
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;

Mais à la compilation, on a l'erreur : "Pas assez de paramètres originaux" pour la ligne :
Proc:=GetWindowThreadProcessId(GetForeGroundWindow);
???
Merci pour vos lumières...

[Cl@udius]

Salut

GetWindowThreadProcessId attend un 2° paramètre lpdwProcessId mais comme celui-ci est défini comme optionnel (nil par défaut) tu ne devrais pas avoir cette erreur de compil.

Tu es sûr qu'il s'agit de cette ligne ?

[cincap]

Bonjour à toutes et à tous,

@ JJJJJ, pas plus facile avec la propriété "FormStyle" de la fiche et la mettre à "fsStayOnTop", faut voir son contexte naturellement.

@+,

Cincap

[JJJJJ]

Re-bonjour,

J'ai essayé FormStyle:=fsStayOnTop , qui marche dans certains cas, mais qui n'est pas opérante dans tous les cas. Cela ne m'étonne pas trop d'après la courte note d'explications qui est donnée dans la FAQ.
La procedure proposée pour contourner la difficulté marche bien.
Toutelois, j'ai du compléter la ligne incriminée. En écrivant :

Code :

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

Proc:=GetWindowThreadProcessId(GetForeGroundWindow,Nil);

il n'y a plus de message d'erreur à la compilation.
Le problème est résolu.

[ShaiLeTroll]

En fait, il est optionnel pour la 1ere variante

Code :

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

1
2
3
function GetWindowThreadProcessId(hWnd: HWND; lpdwProcessId: Pointer = nil): DWORD; stdcall; overload;
 
function GetWindowThreadProcessId(hWnd: HWND; var dwProcessId: DWORD): DWORD; stdcall; overload;

Et le compilateur doit faire son capricieux ... dépend de sa version !

Sinon, autre variante, celle qui respecte le prototype de Windows, et surtout que la fonction renvoie un ThreadID et non un ProcessID, question de nommage des variables ...

Code :

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

1
2
3
ThreadID := GetWindowThreadProcessId(GetForeGroundWindow, @ProcID);
...
    AttachThreadInput(Nous, ThreadID,True);