大虾,Delphi下怎么使用API函数EnumWindows呢?

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Clear;
 EnumWindows(@EnumWindowsFunc, LParam(Memo1.Lines));
end;function EnumWindowsFunc
  (Handle: THandle; List: TStringList)
  : boolean ; stdcall;
var Caption: array[0..256] of Char;
begin
if GetWindowText
  (Handle, Caption, SizeOf(Caption)-1) <> 0 then
 begin
  List.Add(Caption);
  SetWindowText(Handle, PChar('About - ' + Caption));
 end;Result :=True;
end;

Answer 1

为什么运行到这里
EnumWindows(@EnumWindowsFunc, LParam(Memo1.Lines));
会出现错误"Error:Not enough actual parameters."呢？

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    public
    { Public declarations }
  end;var
  Form1: TForm1;
   function EnumWindowsFunc(Handle: THandle; List: TStringList) : boolean ; stdcall;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
EnumWindows(@EnumWindowsFunc, LParam(Memo1.Lines));
end;function EnumWindowsFunc(Handle: THandle; List: TStringList) : boolean ; stdcall;
var Caption: array[0..256] of Char;
begin
if GetWindowText
  (Handle, Caption, SizeOf(Caption)-1) <> 0 then
begin
  List.Add(Caption);
  SetWindowText(Handle, PChar('About - ' + Caption));
end;Result :=True;
end;
end.
你试试看!!!