Discussion :

[petitprince]

Voilà je souhaite dessiner sur la barre de titre d'une autre application. Tout marche bien mais lorsque je ferme cette application (la calculatrice en l'occurence...), mon dessin qui était sur sa barre de titre, se retrouve sur la barre de titre de la fenêtre en arrière plan, ou s'il n'y a pas d'autre application ouverte, directement sur le bureau !!
Comment résoudre mon problème ?

P.S. : voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Window: hWnd;
  DC: HDC;
begin
  if ExeRunning('calc', False)=true then  begin    // fonction de la FAQ !
    Window := GetHandleFromWindowTitle('Calculatrice');  // pour trouver le Handle à partir du nom de la fenêtre d'une appli
    DC := GetWindowDC(Window);
    Ellipse(DC,70,3,20,20);
    ReleaseDC(Window,DC);
  end;
end;

[ShaiLeTroll]

Je n'utilise pas ExeRunning, car un simple FindWindow (dans ce cas) remplace cette fonction et GetHandleFromWindowTitle ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  Window: hWnd;
  DC: HDC;
begin
  Window := FindWindow(nil, 'Calculatrice');
  if Window > 0 then
  begin
    DC := GetWindowDC(Window);
    Ellipse(DC,70,3,20,20);
    ReleaseDC(Window,DC);
  end;
end;

personnellement, je n'ai aucun problème d'ellipse au mauvais endroit ...

[petitprince]

Impécable !!!!!! merci à toi ShaiLeTroll