怎么读取函数里的返回值？

[小小de巫师]

Function EnumChildWndProc(AhWnd: LongInt): String; stdcall;
Var
  WndCaption: Array [0 .. 254] of char;
Begin
  GetWindowText(AhWnd, WndCaption, 254);
  Result := WndCaption;
End;

procedure TForm1.Button5Click(Sender: TObject);
Var
  Hwnd: LongInt;
begin
  EnumChildWindows(Hwnd, @EnumChildWndProc, 0);
end;

怎么把@EnumChildWndProc的返回值 读出来？

[新乞丐王子]

没看明白你想干什么, 挨个取子窗口的标题吗? 那你可以在你的函数中把子窗口的标题添加到一个TListBox里面啊

[RayYan]

procedure TForm1.Button5Click(Sender: TObject);
Var
  Hwnd: LongInt;
  str:string;
begin
  str := EnumChildWindows(Hwnd, @EnumChildWndProc, 0);
end;

[sololie]

用参数保存返回值

[lightdc4]

楼主问题没说明清楚吧，估计按照 目前的意思2楼的应该是可以返回了吧。

[simonhehe]

注意函数用法.

implementation
var
  s : pchar;
{$R *.dfm}

Function EnumChildWndProc(AhWnd: LongInt): boolean; stdcall;
Var
  WndCaption: Array [0 .. 254] of char;
Begin
  GetWindowText(AhWnd, WndCaption, 254);
  s := @WndCaption[0];//你可以把需要的数据传给已经定义的变量
  Result := True;  //该返回值将作为EnumChildWindows函数的返回值传给调用方
End;

procedure TForm2.Button1Click(Sender: TObject);
Var
  Hwnd: LongInt;
  r : boolean;
begin
  s := nil;
  Hwnd := self.Handle;
  r := EnumChildWindows(Hwnd, @EnumChildWndProc, 0);
  if r then
    showmessage(strpas(s));
end;