使用ShellAbout打开关于对话框,怎么出现错误了?
我的语法是这样的
procedure TForm1.A1Click(Sender: TObject);
begin
ShellAbout(Application.MainForm.Handle,
'此处写您的软件名称',
'Copyright (c) 2001-2002'#13'http://www.sgjz.cn',
Application.Icon.Handle);
end;
end.
我运行,此段种的ShellAbout出现错误,是怎么的,怎么回事?请说下。谢谢了
指教本人是新手
[解决办法]
骚瑞,我的QQ不聊天。
在单元的前面,有Use XXX,XXX之类的,再多加一个Shellapi就行了,如:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI;