Delphi 运行Win命令方式1

运行Win命令方式1（不等待）:
Winexec()                               winexec('c:\wang.exe',sw_show);
                                        winexec('regedit',sw_show);
他的第一个参数为你要运行的东西，第二个参数为运行的方式
常用的有三个                             SW_SHOW 显示运行情况
                                        SW_HIDE 不显示运行情况
                                        SW_NORMAL 正常的运行

运行Win命令方式2（等待）：
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
//ShowMessage('Ready to launch NotePad...');
 FillChar(StartupInfo, SizeOf(StartupInfo), 0);
 CreateProcess( nil, PChar('Command.com /C winrar a e:\spkc.zip e:\spkc.txt'), nil, nil, False, 0,nil, nil, StartupInfo, ProcessInfo);
 with ProcessInfo do
 begin
    CloseHandle(hThread);
    WaitForSingleObject(hProcess, INFINITE);
    CloseHandle(hProcess);
 end;
end;
参考：
http://hi.baidu.com/afantihome/blog/item/92559924dbb56f034c088df1.html