Registriert seit: 17. Jul 2007
Ort: Ulm
258 Beiträge
Delphi 7 Enterprise
|
Re: 2 fragen zu HWND und HWND+Canvas
20. Okt 2007, 21:02
wenn ich das jetzt richtig verstehe müsste das hier gehen ?!:
Delphi-Quellcode:
var
DCanvas: TCanvas;
DHandle: HWND;
damn: HWND;
currentcaption, currentminus2: Integer;
begin
damn := FindWindow( NIL, ' MapleStory');
DHandle:=GetDC(damn);
if DHandle<>0 then
begin
try
DCanvas:=TCanvas.Create;
try
DCanvas.Handle:=DHandle;
if DCanvas.Pixels[293, 335] = RGB(239, 239, 239 )
then
begin
Timer1.Enabled := false;
Timer2.Enabled := false;
Label4.Caption := inicurrent;
Label4.Visible := true;
Label5.Visible := true;
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+' LastPin_CorrectPin.txt');
Ini.WriteString(' rCracker', ' Correct Pin', inicurrent);
if Checkbox1.Checked = true then
PlaySound(PChar(' logged.wav'),0,SND_ASYNC or SND_LOOP);
ShowMessage (' Eingeloggt, Pin ist: '+inicurrent);
PlaySound( nil,0,0);
end
finally
DCanvas.Free;
end;
finally
if ReleaseDc(0, DHandle)<>1 then
RaiseLastOSError;
end;
end
else
RaiseLastOSError;
end;
Hab es mal versucht auf dem desktop und es ging immernoch.
|
|
Zitat
|