1.
mein ganzer Code hockt in einer Quellcodedatei
2.
Delphi-Quellcode:
type
TCaptureIt = class(TForm)
*snip*
procedure button_endeClick(Sender: TObject);
procedure button_list_updateClick(Sender: TObject);
procedure listbox_handlesClick(Sender: TObject);
procedure button_startClick(Sender: TObject);
procedure button_top50Click(Sender: TObject);
procedure button_amapClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure button_abbruchClick(Sender: TObject);
private
{ Private-Deklarationen }
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY; // für Hotkey
procedure ScreenToBitmap(x,y: integer);
function CompareImages16(b1, b2: TBitmap): integer;
function CompareImages32(b1, b2: TBitmap): integer;
public
{ Public-Deklarationen }
end;
3.
Delphi-Quellcode:
implementation
{$R *.dfm}
// FUNCTIONS
// PROCEDURES
-> function GetKoord_V(): integer; [b]kommt vor[/b] procedure ScreenToBitmap(x,y: integer);
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]