怎么样实现将一个.ini 文件添加到.exe 文件的末尾？

Question

  我有多个 .ini配置文件  一个delphi可执行程序project1.exe 想实现的功能是 ： 1，打开可执行文件类似这样子的快捷方式 project1.exe my.ini 就可以加载my.ini配置文件
                  2，打开可执行文件类似这样子的快捷方式 project1.exe abc.ini 就可以加载abc.ini配置文件
请问如何实现这种功能 ，加载所对应的ini文件？

Answer 1

 FORM1.ONCREATE()
  if ParamCount=0 then exit;
  ParFileName:=UpperCase(ParamStr(1));ParfileName就是你要的INI文件名

Answer 2

直接用参数就好了如有可执行文件project1.exe 在运行中输入:\project1.exe 123 456
那么
paramstr(1)='123'
paramstr(2)='456'
(paramstr(0)默认代表的是应用程序的绝对路径)
if paramstr(1)='123' then ....

Answer 3

使用命令行参数paramstr(i)就行了
把ini添加到exe后，反而不规范

Answer 4

谢谢 我是这样写的 var 
  filename: string;begin  myinifile := TInifile.Create(filename);
  
  if  paramstr(1)='my' then
  begin
  filename := ExtractFilePath(paramstr(0)) + 'my.ini';
  end ;  if  paramstr(2)='abc' then
  begin
     filename := ExtractFilePath(paramstr(0)) + 'abc.ini';
  end;
.....................
当快捷方式是 D:\Project1.exe my 的时候是可以的但是当快捷方式是 D:\Project1.exe abc 的时候不行
提示 can't open file 系统找不到指定的路径 
请问该如何修改？

Answer 5

abc.ini不存在吗？paramstr(i)的例子就是你们写的

Answer 6

  if paramstr(2)='abc' then
  begin
  filename := ExtractFilePath(paramstr(0)) + 'abc.ini';
  end;
.....................一个参数时都是判断paramstr(1)

Answer 7

谢谢 我又学习了ParamStr参数使用  谢谢大家 非常感谢 

Answer 8

paramstr(1) 第一个参数
paramstr(2) 第二个参数 if paramstr(2)=='abc' then 错了 
应为 if paramstr(1)=='abc' then