请问：Application.Messagebox在DLL文件中使用的问题？？？(0分)

Q

ql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #1

我写一个DLL文件，其中没有窗口，如何使用Application.Messagebox？？？
具体程序如下：
library GetPassWord;
uses
ShareMem,
SysUtils,
Classes,
Dialogs;
{$R *.res}
procedure MyMessage(var TmpStr : string);export;
begin
Application.MessageBox(pchar(TmpStr),'系统信息',mb_ok);//此处该如何写法？
//只要使用了UNIT窗口我是可以使用的，但无窗口时该如何使用？
end;
Exports MyMessage;
begin
end.
虚心请教，请帮忙指点一二，谢谢！！！

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #2

用
Messagebox(GetActiveWindow(),Pchar('信息'),Pchar('提示'),MB_OK);

 

Q

ql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #3

以上能否具体说明 GetActiveWindow() 该怎么用？？？
关于MessageBox的帮助信息我看不懂，
能否再烦劳指点一二，谢谢！！！

 

Z

zm30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #4

在uses里加上forms就可以用了

 

P

pipo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

Application.MessageBox()函数包含三个参数
MessageBox()函数包含四个参数，比上面的多一个应用程序句柄Handle
GetActiveWindow()返回当前Active状态的窗口句柄
你可以在MyMessage(var TmpStr : string)中增加一个参数：
MyMessage(AHandle: THandle; var TmpStr: string);
begin
MessageBox(AHandle,pchar(TmpStr),'系统信息',mb_ok);
end;
使用的时候把调用该dll的exe的句柄传给该函数就可以了

 

Q

ql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-04

• #6

接受答案了.