关于提取安装目录路径的问题?(100分)

  • 主题发起人 主题发起人 lh942901
  • 开始时间 开始时间
L

lh942901

Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序要随时访问一个文件,但这个文件是同安装文件一起放在文件的安装目录下的,我怎么判断客户安装目录呢?按指定的路径来访问她,
另怎么样调用一个DOS可执行文件?
 
运行下面的API
ShellExecute(HANDLE,Pchar('Open'),Pchar(路径 + 'A.exe'),nil,
Pchar(路径),SW_SHOWNORMAL);
记得在uses上加上一个ShellAPI
ExtractFilePath(Application.ExeName)取得可执行文件路径,路径带 /
 
1. WinExec
2.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractFilePath(ParamStr(0)));
end;
 
1.ExtractFilePath(application.exename);
2.winexec('command.com',SW_SHOWDEFAULT);
 
将你的安装路径加入注册表,然后从注册表中读取出来,执行dos文件方法太多了。楼上几位的方法就够了。
 
不再说了。。。。。。。。。。
 
简单,查找文件不就可以了,再判断该目录下是否有你其他的文件,如果有,就是这个目录了。我有这样的做升级程序的代码(自己写的)。
 
各位我现在已经解决了上面的问题,现在我把所有的分分了,不过回答太草率的不给分了。
 
后退
顶部