delphi代码转BCB,delphi的Handle是个Long (整长型)的数据,bcb是个指针怎么转换成delphi的Handle呢

[bjelement]

//****运行接口软件，并把主窗体的句柄传给接口软件***************//
ShellExecute(Application.Handle, Nil, 'run.exe'),Pchar(IntToStr(Form1.Handle)), Nil, SW_SHOWNORMAL);

//声明：
public
ToHandle :Thandle;
//自定义消息处理程序：第一次获得的是'run.exe'窗口的句柄
procedure TForm1.OnMessage(var Msg: TMessage);
Begin
IF ToHandle =0 Then
Begin
ToHandle :=Msg.LParam;
End

End


//delphi的Handle是个Long (整长型)的数据,bcb是个指针怎么转换成delphi的Handle呢？

[Behard]

ShellExecute(Application->Handle, NULL, "run.exe", IntToStr((int)Form1->Handle).c_str(), NULL, SW_SHOWNORMAL);

还有楼主想问什么问题呀？

[truelove7283159]

Handle是MS弄出来一个奇怪的东西, 其实是个对象指针,但是在外面使用的话,一直都是个long,
可以直接当long用.

[jone7319]

指针存放的本身就是long型的地址。

[bjelement]

这是DELPHI的代码，转成BCB怎么写？

[samchoy]

[Quote=引用 4 楼 bjelement 的回复:]
这是DELPHI的代码，转成BCB怎么写？
[/Quote]
1楼的就是了

[bjelement]

OKOK，明白了，谢谢大家，问题解决，哈哈，原来这么简单啊！
第2个如下转：
ToHandle :=Msg.LParam;=》int(ToHandle )=Msg.LParam;