private
DeskTopCanavas:TCanvas;
procedure TForm1.Button1Click(Sender: TObject);
begin
DeskTopCanavas:=TCanvas.Create;
DeskTopCanavas.Handle:=GetDC(Hwnd_Desktop);
DeskTopCanavas.TextOut(0,0,'www.dronymc.cjb.net');
end;
end.
siz bunu geliştirebilirsiniz
ben trojan tarzı prog yaparken bunu karşı tarafı sinir etmek için kullanıyordum silinmiyor kapanmıyor vs...
DeskTopCanavas:TCanvas;
procedure TForm1.Button1Click(Sender: TObject);
begin
DeskTopCanavas:=TCanvas.Create;
DeskTopCanavas.Handle:=GetDC(Hwnd_Desktop);
DeskTopCanavas.TextOut(0,0,'www.dronymc.cjb.net');
end;
end.
siz bunu geliştirebilirsiniz
ben trojan tarzı prog yaparken bunu karşı tarafı sinir etmek için kullanıyordum silinmiyor kapanmıyor vs...