首先在uses中引用shellapi单元
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar('可执行程序路径'),nil,nil,SW_SHOWNORMAL);
end;
首先在uses中引用shellapi单元
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar('可执行程序路径'),nil,nil,SW_SHOWNORMAL);
end;