Einzelnen Beitrag anzeigen

DarkItachi

Registriert seit: 28. Dez 2009
Ort: Berlin
130 Beiträge
 
Delphi 2007 Enterprise
 
#1

[DELPHI 2010] EnumWindows mit Handle

  Alt 4. Feb 2010, 11:22
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?
Developer since age 14
  Mit Zitat antworten Zitat