EnumWindows Fehler

[yoppu]

Delphi-Quellcode:

function EnumWindowsProc(const hWnd : Longword; Param: lParam): LongBool; stdcall; 
var 
  Buffer: array[0..1024] of Char; 
begin 
  Result := True; 
  GetWindowText(hWnd, Buffer, sizeof(Buffer)); 
  if lstrlen(Buffer) = 0 then 
   begin 
    exit; 
   end 
  else 
   begin 
    Form1.Memo1.Lines.Add (buffer); 
   end; 
end; 

  {****************************************************} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
LPARRAM : DWord; 
begin 
EnumWindows (@EnumWindowsProc,Integer(@LPARRAM)); ***********
end;

Wenn ich diese Zeilen aufrufe, bekomme ich immeran der gesternten Stelle die Meldung, Variable erforderlich, was will mir Delphi 5 damit sagen???
Danke!

[edit=r_kerber]Delphi-Tags gesetzt! Mfg, r_kerber[/edit]

[r_kerber]

Hallo yoppu,

Nutze das nächste mal bitte die Delphi-Tags. Dann läßt sich der Quellcode besser lesen.
Zur Frage: Nimm mal das Integer weg.

[yoppu]

Hab auch schon als Wert 0 eingegeben und ohne Integer, aber der Fehler ist immer der gleiche! :cry:

[r_kerber]

Ich bekomme lediglich die Warnung:

Zitat:

[Warnung] Unit1.pas(48 ) : Variable 'LPARRAM' ist möglicherweise nicht initialisiert worden

Mein Code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  LPARRAM : DWord;
begin
  EnumWindows(@EnumWindowsProc, LPARRAM);
end;

[yoppu]

Hmmm, seltsam, ich bekomme den Fehler

[Fehler] Unit1.pas(32): Variable erforderlich

wenn ich den Code so umstelle wie Du!? :roll:

[edit=r_kerber]Doppeltes Posting gelöscht! Mfg, r_kerber[/edit]

[r_kerber]

Ich habe D7. Mit D5 kann ich's leider nicht testen.

[yoppu]

Das dürfte aber doch keinen Unterschied machen, EnumWindows gibts ja schon länger als gestern und heute, oder?
Aber trotzdem Danke für Deine Hilfe!

[MathiasSimmack]

Ich habe Delphi 5, und ich bekomme überhaupt keinen Fehler wenn ich den Code aus deinem 1. Posting 1:1 kopiere. Damit dürfte die Verwirrung wohl komplett sein. :stupid:

[Luckie]

Versuch es mal so:

Delphi-Quellcode:

type
  PMyEnumParam = ^TMyEnumParam;
  TMyEnumParam = record
    lb: TListbox;
  end;

function GetWindows(const hWnd: Longword; Param: PMyEnumParam): LongBool;
  stdcall;
var
  Len: Longint;
  S: string;
begin
  Result := True;
  if not (IsWindow(hWnd) and IsWindowVisible(hWnd)) then
    Exit;
  Len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
  if Len > 0 then
  begin
    SetLength(S, Len);
    SendMessage(hWnd, WM_GETTEXT, Len + 1, Longint(Pchar(S)));
    Param.lb.Items.Add(s);
  end;
  // mit Result = False kann die Callbackfunktion vorzeitig verlassen werden
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Param: TMyEnumParam;
begin
  Param.lb := Listbox1;
  EnumWindows(@GetWindows, LPARAM(@Param));
end;

[yoppu]

Hi Luckie,
hab ich auch schon versucht, immernoch der selbe Fehler!
So ein Mist! Habs gerade nen Kollegen testen lassen, der bekommt den selben Fehler!