Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
procedure TForm1.Timer13Timer(Sender: TObject);
var
ddddddd11:HWND;
BitMap:TBitMap;
ScreenDC:HDC;
begin
ddddddd11:=FindWindow(nil,'Counter-Strike');
if windowHandle <> 0 then
begin
if Screen.Width = 800 then
ScreenDC := GetDC(0);
if screendc=rgb(255,255,255) then
ReleaseDC(0,ScreenDC);
end;
end;
пробывал вот так ХДД
и так
procedure TForm1.Timer14Timer(Sender: TObject);
var
BitMap:TBitMap;
ScreenDC:HDC;
begin
if Screen.Width = 800 then
begin
GetDC(0);
if Canvas.Brush.Color=16777215 then
Canvas.Brush.Color:=0;
ReleaseDC(0,Canvas.Brush.Color);
end;
end;
Добавлено через 7 часов 3 минуты
Уже не надо спасибо я понял как
Последний раз редактировалось victor20011; 19.05.2012 в 07:06.
Причина: Добавлено сообщение