hallo,
ja wurde jetzt schon oft durchgekaut und besprochen aber ich finde nie eine lösung oder weiteres
und zwar möchte ich einfach nur ein text ausgeben der über allen anderen anwendungen ist alias Fraps / Ts overlay usw.
Ich habe hier so ziemliche viele Directx SDK datein, habe auch madcodehook probiert und uallcolletion, nur ich blick da nicht durch oder wie auch immer.
Deswegen bin ich immer noch auf der Suche nach einer Lösung.
Sachen wie
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure WriteText(TransText: string);
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
Start : Longint;
begin
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clred;
MyCanvas.Font.Name := 'Arial';
MyCanvas.Font.Size := 15;
SetBkMode(MyCanvas.Handle,TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(20, 20, TransText); Start := GetTickCount;
repeat
Application.ProcessMessages
until (GetTickCount - Start > 2000);
InvalidateRect(0, nil, true);
end; |
funktioniern zwar aber sie flackern, auch den backpuffe auf true schalten löst das flackern nicht Sad
vll mag mir mal jemand verraten wie man nun ein textoverlay baut Smile wäre super nett, würde auch bestimmt noch andere intressieren *g*
