如何像使用ShellAbout那样打开关于对话框来调用任务管理器中的文件-新建任务对话框？需要用什么函数？

Question

如何像使用ShellAbout那样打开关于对话框来调用任务管理器中的文件-新建任务对话框？需要用什么函数？

Answer 1

我也出现同类问题，我来描述问题，请各位说下是怎么的。
我用的是Delphi 7
打开关于对话框，下面是语法
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 这段出现错误，请高手们说下，谢谢

Answer 2

unit Unit1;interfaceuses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
procedure RunDialog(OwnerWnd: HWND; Icon: HICON; lpstrDirectory: PChar;
  lpstrTitle: PChar; lpstrDescription: PChar; Flags: LongInt); stdcall;
  external 'Shell32.dll' index 61;implementation{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
const
  RFF_NOBROWSE = 1;
var
  Flags: LongInt;
  FIcon: TIcon;
begin
  FIcon := TIcon.Create;
  Flags := Flags or RFF_NOBROWSE;
  RunDialog(0, FIcon.Handle, nil { PChar(FInitialDir) } , PChar('比尔的标题'),
    PChar('杀死比尔'), Flags);
  FIcon.Free;
end;end.