在这个回调函数中如何得到主窗口句柄

Question

function EnumProc(Handle: THandle; Param: Integer): Boolean;  stdcall;
begin
  MESSAGEBOX(0,pchar(inttostr(Handle)),'句柄',0);
  result:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: array[0..1] of Cardinal;
begin
  Buffer[0] := GetCurrentThreadId;
  Buffer[1] := 0;
    EnumThreadWindows(GetCurrentThreadID, @EnumProc, Integer(@Buffer));
end;

Answer 1

type
  PBuf = ^TBuf;
  TBuf = array[0..2] of Cardinal;
function EnumProc(Handle: THandle; Param: Integer): Boolean;  stdcall;
begin
  MESSAGEBOX(0,pchar(inttostr(PBuf(Pointer(Param))^[2])),'句柄',0);
  result:=false;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: TBuf;
begin
  Buffer[0] := GetCurrentThreadId;
  Buffer[1] := 0;
  Buffer[2] := self.Handle;//<<================
    EnumThreadWindows(GetCurrentThreadID, @EnumProc, Integer(@Buffer));
end;大概就这样了PS:楼主注意点文明,你态度不好没人会理你,偶本不想理的.

Answer 2

self 这是个什么东西在纯API下还能用这个靠,CSDN上的人越来越没素质了,这个问题我自己已经搞定了,这个直赶大富翁真是两个档次

Answer 3

什么素质
引用你自己的代码
procedure TForm1.Button1Click(Sender: TObject);
这叫纯API?
连self都不懂你还玩什么delphi,回家种田去吧您

Answer 4

DELPHI 公司垮了,那些人也浮噪起来了

Answer 5

主窗体这种东西只有VCL才会有，所以你这样一问就一点儿也不API啦。

Answer 6

楼zhu不懂什么叫API！
   鉴定完毕！

Answer 7

LZ实在是太NB,我得望尘莫及
终于学会了什么是API

Answer 8

大家想怎么抽，开个会讨论一下，抽他PP呢还是小JJ

Answer 9

没前途-------------------------------------------------------
本回复由大傻的破玩意儿【CSDN's forum Explorer】完成！
大傻的破玩意儿，今天你用了木有 ！！
软件功能强大，速度超快！！支持中...
软件下载地址：http://CoolSlob.ys168.com

Answer 10

原来这就是API ！！！见识了。