Einfrieren des Programms verhindern

[wicht]

Tach!
Ich haue hier mal was ungetestetes für dich hin:

Delphi-Quellcode:

type
  TMeinThread = class(TThread)
  private
    FParentHandle: hWND;

    procedure Execute; override;
  public
    constructor Create(ParentHandle: hWND);
    destructor Destroy; override;
  end;

implementation

constructor TMeinThread.Create(ParentHandle: hWND);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  FParentHandle := ParentHandle;
  Resume;
end;

procedure TMeinThread.Execute;
var
  AufrufErgebnis: Integer;
begin
  // DLL Aufruf, Krams erledigen, ein Bier trinken oder was auch immer
  SendMessage(ParentHandle, WM_MEINENACHRICHT, AufrufErgebnis, 0);
end;

Diesen Thread kannst du einfach erstellen und er arbeitet dann das Execute ab. Das ist auch das, was "im Thread" läuft. Sonst nichts. Am Ende schickt der Thread eine Nachricht an deine Form (das Handle hast du in ParentHandle dem Thread mitgegeben im Konstruktor).
Die Prozedur in deiner Form sieht dann ungefähr so aus:

procedure ThreadMessage(var Msg: TMessage); message WM_MEINENACHRICHT; Das Ergebnis des Threads steht dann in Msg.WParam (oder so ähnlich).

Hoffe, das schafft (ein bisschen) Klarheit ?