注意要执行文件的路径要写全。 function ExeTempFile(s:string):integer; var ShellExecInfo: TShellExecuteInfo; begin if s<> '' then begin {initialize params} ZeroMemory(@ShellExecInfo, SizeOf(TShellExecuteInfo)); with ShellExecInfo do begin cbSize := SizeOf(TShellExecuteInfo); Wnd := 0; lpFile := PChar(s); nShow:=SW_SHOW; end; ShellExecuteEx(@ShellExecInfo); end; result:=0; end;
...
ShellExecute(Handle, ’open’,
'mysqldump', 'heidunlog>d:\900\sampl1', nil, SW_SHOWNORMAL);
我执行了。可是仍然无法实现呀,
改成绝对路径试试。
function ExeTempFile(s:string):integer;
var
ShellExecInfo: TShellExecuteInfo;
begin
if s<> '' then
begin
{initialize params}
ZeroMemory(@ShellExecInfo, SizeOf(TShellExecuteInfo));
with ShellExecInfo do
begin
cbSize := SizeOf(TShellExecuteInfo);
Wnd := 0;
lpFile := PChar(s);
nShow:=SW_SHOW;
end;
ShellExecuteEx(@ShellExecInfo);
end;
result:=0;
end;
getit911(Windows转Linux中) ( ) 信誉:98
的方法我都通过了