芝 芝芝 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-20 #1 如何DELPHI中调用已做好的应用程序(如:SALE.EXE),这语句该怎么写呀
B Brave Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-20 #2 shellexecute(),在shellapi单元中 ShellExecute(0,NIL,'sale.EXE','','',SW_SHOW);
L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-20 #3 WinExec('sale.exe', SW_Show)
芝 芝芝 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-20 #4 我在程序中要把代码在一个BUTTON的ONCLICK事件中,具体怎么写呀
P pcexplorer Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-20 #6 { 我在程序中要把代码在一个BUTTON的ONCLICK事件中,具体怎么写呀 $^$%&$%&#$%#@$@#%#$^$^ oh my god ! } uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0,nil,'sale.EXE','','',SW_SHOW); end;
{ 我在程序中要把代码在一个BUTTON的ONCLICK事件中,具体怎么写呀 $^$%&$%&#$%#@$@#%#$^$^ oh my god ! } uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0,nil,'sale.EXE','','',SW_SHOW); end;
Z zealots Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-20 #7 procedure TfrmMain.Button1Click(Sender: TObject); begin if winexec('',2)<31 THEN //空格中的内容为详细路径+文件名 如 d:/example.exe application.MessageBox('模块调用失败,请与管理员联系','警告',mb_ok); end;
procedure TfrmMain.Button1Click(Sender: TObject); begin if winexec('',2)<31 THEN //空格中的内容为详细路径+文件名 如 d:/example.exe application.MessageBox('模块调用失败,请与管理员联系','警告',mb_ok); end;