怎么弄出一个象资源管理器的“关于”窗口？(20分)

L

lonelylion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #1

好象有专门的函数或什么，忘了...

 

C

chemer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #2

uses shellapi;
ShellAbout ( Handle, 'My program',pchar('My company'), Application.Icon.Handle );

 

K

KY99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #3

uses
……,ShellApi;
……

var
Icon:Integer;
Title,Msg:String;
begin
Icon:=LoadIcon(hinstance,'MainIcon');
Title:='关于Windows';
Msg:=#$D#$A+'**完成于2002年**月**日';
ShellAbout(Handle,PChar(Title),PChar(Msg),Icon);

 

L

lonelylion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #4

Thanks ~~