Dessiner sur le Bureau Windows et Effacer
Bonjour,
Je veux sélectionner l'écran sur lequel s'execute mon application pour ça je veux dessiner sur chaque écran son numéro respectif 0,1,2,...
faire une pause
puis effacer.
Pour dessiner, il n'y a pas de problème voici le code que j'utilise :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
procedure DrawIdentifier;
var wCanvas : TCanvas;
wDC : HDC;
begin
wCanvas := TCanvas.Create;
wDC := GetWindowDC(0);
wCanvas.Handle := wDC;
wCanvas.Font.Name := 'Tahoma';
wCanvas.Font.Size := 64;
wCanvas.Font.Color := clRed;
wCanvas.Brush.Style := bsClear;
wCanvas.TextRect(wCanvas.ClipRect,0,0,'0');
ReleaseDC(0, wDC);
wCanvas.Free;
end; |
Le problème, c'est pour effacer le texte que je viens d'écrire sur le bureau Windows.
Quelqu'un aurait une solution à me proposer,
Merci d'Avance
Gued.
