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

[syl_gg]

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

[syl_gg]

明白人说下，准备结贴了

[浩南_哥]

你的问题描述不是很清楚

[tanxiaokang]

我也出现同类问题，我来描述问题，请各位说下是怎么的。
我用的是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 这段出现错误，请高手们说下，谢谢

[Frank.WU]

unit Unit1;

interface

uses
  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.