Thread für einen Funktionsaufruf erstellen

**Fredyy**

Hallo Forengemeinde,

Ich habe ein kleines Problem in einem alten Projekt, dass leider noch auf Delphi 7 basiert und mir fehlt die Zeit es für eine neuere Version neu zuschreiben.
Trotzdem möchtet ich es gerade etwas auf hübschen und anpassen.

Und zwar nutze ich folgenden Funktion relativ häufig in meinem Code, doch leider ist sieh recht leistungsintensiv, weshalb ich sie gerne in ein Thread hätte.

zusammenfalten · markieren

Delphi-Quellcode:

			function _ImageSearch(findImage: string; tolerance: Integer; delay: Integer): Boolean;

var

  ergebnis  : PChar;

  ergebnis2 : TStringList;

  oldPos    : TPoint;

begin

  if (tolerance > 0) then findImage := '*' + inttostr(tolerance) + ' ' + findImage;

  ergebnis := ImageSearch(0,0,Screen.Width ,Screen.Height ,PCHAR(findImage));

  if (ergebnis[0] = '1') then

  begin

    ergebnis2 := split(ergebnis, '|', true);

    sleep(delay);

    x := StrToInt(ergebnis2[1]) + round(StrToInt(ergebnis2[3])/2);

    y := StrToInt(ergebnis2[2]) + round(StrToInt(ergebnis2[4])/2);

    oldPos := mouse.CursorPos;

    mouse.CursorPos := point(x+Zufallszahl(-5,5),y+Zufallszahl(-5,5));

    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

    mouse.CursorPos := oldPos;

    //showmessage('found' + inttostr(x) + ' ' + inttostr(y));

    result := true

  end

  else

  begin

    result := false

  end;

end;

Leider habe ich Delphi Threads nie so richtig verstanden deshalb hoffe ich auf eure Hilfe. Am liebsten wäre mir eine Funktion, die einen Thread erstellt, die Funktion laufen lässt den Thread schließt und mir die Rückgabe liefert.

Ich hoffe ihr könnt mir dabei weiter helfen.

Danke und einen lieben Gruß,
Fredyy

Thread für einen Funktionsaufruf erstellen

Thread für einen Funktionsaufruf erstellen

Forumregeln