请教，如何取shellexecute() 的返回值

Question

var
  hd:Thand;
begin
  hd:=shellexecute(...
end;

Answer 1

var
hInstance:LongInt;
begin
    hInstance:=ShellExecute(0,'open','notepad.exe',nil,nil,SW_SHOW);
    if Hi<=32 then
        begin
        ShowMessage('Error');
        end;
end;

Answer 2

if hInstance<=32 then
        begin
        ShowMessage('Error');
        end;

Answer 3

var AppInst,AppWind: THandle;
    Text: Array[0..255] of char;
begin
  AppInst:= ShellExecute(Handle, 'open', 'notepad.exe', nil, '', SW_NORMAL);
  EnumWindows(@EnumFunc, longint(self));
  AppWind:= GetWindow(AppWind, GW_CHILD);
//  AppInst 就是返回值了
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  temp:Longint;
begin
    temp:=shellexecute(handle,'open',pchar('notepad.exe'),nil,nil,sw_show);
    showmessage(inttostr(temp));
  end;

Answer 5

Thand是什么类型，
不行啊

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  temp:Longint;
begin
    temp:=shellexecute(handle,'open',pchar('notepad.exe'),nil,nil,sw_hide);
    showmessage(inttostr(temp));
  end;

Answer 7

THandle = LongWord;
在system单元中