EnumWindows in einem Thread ausführen?

[Cyberstorm]

hallo.

ich habe folgendes problem:

sobald ich EnumWindows mit einem thread koppel kracht es:

Delphi-Quellcode:

type
  TMyThread = class(TThread)
    private
      function GetPid(hHwnd: HWND; lParam : Integer): Boolean; stdcall;
    protected
      procedure Execute; override;
    public
      constructor Create; virtual;   
  end;

constructor TMyThread.Create;
begin
  FreeOnTerminate:=True;
  inherited Create(false);
end;

function TMyThread.GetPid(hHwnd: HWND; lParam : Integer): Boolean; stdcall;
begin
  if (hHwnd=0) then Result:=False
   else Result:=True;
//code gekürzt aber kracht ja trozdem ;-)
end;

procedure TMyThread.Execute;
begin
  while not Terminated do
    begin
      EnumWindows(@TMyThread.GetPid, 0);
      Sleep(5000);
    end;
end;

die GetPid funktion wird aufgerufen und am ende gibts dann eine zugriffsverletzung in der ntdll.dll
dachte dann noch, dass evtl. die deklaration in den public teil muss, damit windows auf die callback funktion zugreifen kann aber das ändert auch nichts :-(. sobald ich die funktion aus dem thread nehme klappt es. ich will aber auf thread interne variablen zugreifen...

jemand ne idee?

[sirius]

Du musst wohl zwischen Methode und Funktion unterscheiden. Ich vermute EnumWindows hätte gern eine Funktion.

[Cyberstorm]

kann ich denn irgendwie eine threadinterne funktion daraus bauen?

bzw. ist doch eigentlich eine funktion?!

[sirius]

Nein, das ist eine Methode.

Threadintern hängt allein von deiner Programmierung ab. Die Funktion/Methode muss nicht in der Klasse TThread sein.
Du kannst also die Methode aus der Klasse herauslösen und eine extra Funktion nehmen oder du nimmst eine Klassenfunktion. Letzteres sieht meist vom Programmaufbau her besser aus.

[Cyberstorm]

Delphi-Quellcode:

type
  TMyThread = class(TThread)
    protected
      procedure Execute; override;
    public
      constructor Create; virtual; 
      class function GetPid(hHwnd: HWND; lParam : Integer): Boolean; stdcall;  
  end;

constructor TMyThread.Create;
begin
  FreeOnTerminate:=True;
  inherited Create(false);
end;

class function TMyThread.GetPid(hHwnd: HWND; lParam : Integer): Boolean; stdcall;
begin
  if (hHwnd=0) then Result:=False
   else Result:=True;
//code gekürzt aber kracht ja trozdem ;-)
end;

procedure TMyThread.Execute;
begin
  while not Terminated do
    begin
      EnumWindows(@TMyThread.GetPid, 0);
      Sleep(5000);
    end;
end;

stürzt immer noch ab :-(

[Luckie]

Es ist ja auch immer noch eine Methode.

http://www.michael-puff.de/Artikel/CallbackMethod.shtml

[Cyberstorm]

danke für den super link. werde ich mir zu gemüte führen und behandelt ja auch exakt mein problem :-)

[sirius]

Sorry, Klassenmethode geht nicht, weil die hat ja auch einen versteckten Parameter.
Dann eben eine nomrale Funktion.

Falls du auf deine Threadklasse zugreifen willst, brauchst du aber nicht dne Umstand machen, den dir Luckie zeigt. Hier hast du ja einen freien Parameter (lparam) um self zu übergeben.