当exe文件启动时,如何按照配置的ini来控制该程序执行或切换以及立即终止?
比如我在双击1.exe时,1.exe所配置的ini文件没有满足,须立即切换至2.exe,并且不运行1.exe。或者说在ini文件没有满足的情况下,运行的实际上是另一个文件,而不是两个文件一起运行。如何做到?
希望看到帖子的大侠帮帮忙,最好能有书写的程序。我在线等待,谢谢!
比如我在双击1.exe时,1.exe所配置的ini文件没有满足,须立即切换至2.exe,并且不运行1.exe。或者说在ini文件没有满足的情况下,运行的实际上是另一个文件,而不是两个文件一起运行。如何做到?
希望看到帖子的大侠帮帮忙,最好能有书写的程序。我在线等待,谢谢!
解决方案 »
- delphi 有一个模块代码出错
- DELPHI 的网络通信是不是要用到SPComm.dcu spcomm.pas 怎样进行spcomm 的安装?
- 请问cxGrid中的IncSearch数字字段可查,为什么查不了中文字段,如姓名字段,是不是我的方法不当吗?
- 关于用TIDHTTP下载文件的问题,各位大虾多多指教啊
- 这种SQL语句怎么写???
- 我搞不懂,2个问题。
- 如何利用form的帮助按钮(就是标题栏上带问号的那个按钮)?
- 如何实现Twebbrowser控件的滚动条为Flat平面的,而不是3D的?
- 简单问题!快来,先解决的50分都给!
- 我如何把richedit中所有的某个字符串‘ABC’,找出来,并设为红色??
- 在delphi里怎么执行后台升级文件
- delphi是不是规定了不能用中文做文件名来保存?
a.exe根据ini条件启动不同的程序后,自己停止运行(application.terminate)
符合则继续,不符合则退出或执行另一个程序.用winexec()执行其它.
如何具体实现呢?希望能有书写的程序。
procedure TForm1.FormCreate(Sender: TObject);
var
iniRead: TIniFile; //uses inifiles
sExeRun: string;
begin
iniRead := TINIFile.Create(ExtractFilePath(Application.Exename) + '1.ini');
try
sExeRun :=iniRead.ReadString('Exe', 'IsRun', 'N');
finally
iniRead.Free;
end; if sExeRun = 'N' then
begin
WinExec(PChar('notepad.exe'), SW_SHOWNORMAL);
//你可以把notepad.exe修改成自己的第二個程序
Application.Terminate
end;
end;//1.ini文件里的內容
[Exe]
IsRun=N
//IsRun<>N就運行自己
//IsRun=N就不運行自己,運行別的程序