一个小问题

Question

function WinExecAndWait(FileName:String; Visibility : integer):Thandle;
var
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);0D
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
0AFillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,zAppName,nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo) then
  begin
  Result :=0;
  exit;
  end
  else
  begin
  WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
  GetExitCodeProcess(ProcessInfo.hProcess,Result);
  end;
end;
//下面是用法：
WinExecAndWait('NotePad.exe',SW_Normal);

Answer 1

如何在外部程序运行的时候不让它在工具栏上显示，只在任务栏上显示成一图标。