前輩們好
想在delphi以程式執行桌面的 ->桌面->開始->執行 內的指令,例如pcinf 或regdit.exe 等該如何?謝謝

你很懶哦, 
用 "外部指令" 搜尋,
就一堆文章了!!

最简单的方法：
WinExec('regedit.exe',1);//不过这个是为了兼容以前16位的操作系统的。

在现在的32位系统中，建议使用CreateProcess函数进行操作。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

 
BAT,沒經驗想請前輩們提供意見 感謝

[code delphi]
function RUN_EXE(const exe_file, exe_params: String; const WaitTime:Integer=0): Boolean;
var
TryTimes: Integer;
ExitCode: cardinal;
ExecInfo: TShellExecuteInfo;
begin
ZeroMemory(@ExecInfo,SizeOf(ExecInfo));
with ExecInfo do begin
cbSize := SizeOf(ExecInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpVerb := 'open';
// lpDirectory:= PChar(exe_path);
lpParameters:= PChar(exe_params);
lpFile := PChar(exe_file);
// Wnd := Handle;
nShow := SW_HIDE;
end;
if WaitTime=0 then TryTimes:= 9999
else TryTimes:= WaitTime* 10;
ShellExecuteEx(@ExecInfo);
GetExitCodeProcess(ExecInfo.hProcess,ExitCode);
while (ExitCode=STILL_ACTIVE) and (TryTimes>0) do
begin
GetExitCodeProcess(ExecInfo.hProcess, ExitCode);
Sleep(100);
Application.ProcessMessages;
TryTimes:= TryTimes- 1;
end;
Result := (TryTimes>0);
end;
[/code]

感謝幫忙,不過測試結果 RUN_EXE('c:\tlibimp.EXE','A C:\comdlg32.OCX',0);無法正確run,
run_exe內的exe_parama僅有一個參數,
對於2個參數RUN_EXE('c:\tlibimp.EXE','A', 'c:\comdlg32.OCX',0)無法compile

試試看, RUN_EXE('c:\tlibimp.EXE','A c:\comdlg32.OCX',0)
===================引 用 chiehjj 文 章===================
感謝幫忙,不過測試結果 RUN_EXE('c:\tlibimp.EXE','A C:\comdlg32.OCX',0);無法正確run,
run_exe內的exe_parama僅有一個參數,
對於2個參數RUN_EXE('c:\tlibimp.EXE','A', 'c:\comdlg32.OCX',0)無法compile

編輯記錄

感謝RUN_EXE('c:\tlibimp.EXE','A c:\comdlg32.OCX',0) 還是不行,

欉網路上搜了下式可以用了,感謝zhouying82及max兄的提示謝謝
procedure TForm1.Button2Click(Sender: TObject);
var
sei : TShellExecuteInfo;
begin
ZeroMemory(@sei, sizeof(sei));
with sei do
begin
cbSize := SizeOf(sei);
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Form1.Handle;
lpVerb := 'open';
lpFile := PChar('C:\tlibimp.exe');
lpParameters := PChar('c:\comdlg32.ocx');
lpDirectory := PChar('C:\');
nShow := SW_SHOWNORMAL;
end;
ShellExecuteEX(@sei);
end;

從網路上搜了下式可以用了,感謝zhouying82及max兄的提示謝謝
procedure TForm1.Button2Click(Sender: TObject);
var
sei : TShellExecuteInfo;
begin
ZeroMemory(@sei, sizeof(sei));
with sei do
begin
cbSize := SizeOf(sei);
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Form1.Handle;
lpVerb := 'open';
lpFile := PChar('C:\tlibimp.exe');
lpParameters := PChar('c:\comdlg32.ocx');
lpDirectory := PChar('C:\');
nShow := SW_SHOWNORMAL;
end;
ShellExecuteEX(@sei);
end;

呵呵,
早叫你多用搜尋的,
你有沒有發現,
我提供的CODE,
和你找到的是一樣的!!