[DELPHI 2010] EnumWindows mit Handle

[DarkItachi]

Hallöchen!

Langsam bin ich echt sauer, dass mein Vater mit Delphi 2010 von seiner Firma mitgebracht hat!
Nagut, es ist schnell, stabil und teuer! JEDOCH LASSEN SICH VIELE SOURCECODES NICHT KOMPILIEREN!!!!!!
Ich glaube ich werde wieder zu delphi 7 umsteigen müssen!


Naja.. Jetzt zu meinem Problem:

Ich habe von Torry's Delphi Pages diesen Code:

Delphi-Quellcode:

function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
var
  Title, ClassName: array[0..255] of char;
begin
  Result := True;
  GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if IsWindowVisible(wHandle) then
     lb.Items.Add(string(Title) + '-' + string(ClassName));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc, Integer(Listbox1));
end;

um in einer ListBox alle offenen Fenster aufzulisten! [+ Handle]

Doch kompilieren lässt sich mal wieder nicht, der Aufrufcode!
Nach EnumWindows(@EnumWindowsProc sagt er:
Variable erforderlich!

Hat jemand ne Idee?

[Dezipaitor]

Hmm, bei mir funkz es auf Anhieb in 2010. Welche Units nutzt du?

[DarkItachi]

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;

Also ich weiß auch nicht weiter...

[Dezipaitor]

Zeig mal DEINEN gesamten Code.

[DarkItachi]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 EnumWindows(@EnumWindowsProc, Integer(ListBox1));
end;

function TForm1.EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;
var
  Title, ClassName: array[0..255] of char;
begin
  Result := True;
  GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if IsWindowVisible(wHandle) then
     lb.Items.Add(string(Title) + '-' + string(ClassName));
end;

end.

Hoffentlich ist das kein dussliger Fehler

[DeddyH]

EnumWindowsProc muss eine reguläre Funktion sein, keine Methode.

[himitsu]

Jupp, funktioniert ohne Probleme.

Nur dieses stört mich etwas, aber es bereitet zumindestens keine Probleme.

Zitat:

Die Direktiven near, far und export beziehen sich auf die Aufrufkonventionen bei der Programmierung für 16-Bit-Windows-Umgebungen. Sie dienen ausschließlich der Abwärtskompatibilität und haben in 32-Bit-Anwendungen keine Auswirkung.

Zitat:

function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;

PS: Das kommt davon, wenn man was anderes zeigt und nicht das, wo man Probleme hat.

[DarkItachi]

OK, sry!

wie muss ich das denn jetzt machen?
Wisst ihr, ich hatte Delphi nie in der Schule und habe mir das selber beigebracht!
Wie muss ich das jetzt aufrufen? ^^


[DCC Fehler] Unit1.pas(29): E2003 Undeklarierter Bezeichner: 'EnumWindowsProc'
Wenn ich das so schreibe function EnumWindowsProc(wHandle: HWND; lb: TListBox): Bool; stdcall; export;





€D1T: OK Ok alles Ok!
Danke! Danke Danke!

GOOGLE: http://www.google.de/search?rlz=1C1C...%A4re+funktion ^^

[DeddyH]

Setze die Funktion im Quelltext vor den Aufruf.

[DarkItachi]

Ja, so ist das noch besser! Klasse! ^^
Hier erhält man sehr viel Erfahrung und Hilfe