tanjiajun_34 Grandmaster Cheater
Reputation: 0
Joined: 16 Feb 2006 Posts: 786 Location: Singapore
|
Posted: Sun Jul 05, 2009 9:35 am Post subject: Textout help |
|
|
| Code: |
procedure TForm1.Timer1Timer(Sender: TObject);
var
MS:hwnd;
MS2:hdc;
begin
MS := FindWindowA('MSClass', nil);
if MS <>0 then
begin
MS2:=GetDC(MS);
if Checkbox1.Checked=true then
begin
textout(MS2,431,233,'Auto Escape from people: True',29);
end
else
begin
textout(MS2,431,233,'Auto Escape from people: False',30);
end;
ReleaseDC(MS,MS2);
InvalidateRect(MS,nil,false);
RedrawWindow(MS,nil,0,RDW_ERASE);
UpdateWindow(MS);
end;
end;
|
The timer1 is enabled and set interval 1.
The textout box work before.
When I enable Checkbox1, The "Auto Escape from people: false" turns into "Auto Escape from people: True". After changing I cannot run the new msg. I only sometimes see it blink and disappear.
Edited: Solved. Thanks for been so good to come in and view wad to help. Thank you.
|
|