Question

delphi 打开跟程序同目录的文件

打开跟程序同目录的文件
如abc.exe在c:/中
如何打开c:/abc/kk.txe
而不用loadformfile('c:/abc/kk.txt')
用('/abc/kk.txt')中的话
有时行，但有时不行。
急救。。。。。

Answer 1

要利用ParamStr函数，ParamStr(0)能获取EXE文件名，然后用ExtractFileDir函数取出目录名，看我下面的例子程序：

{$apptype console}
program temp;
uses sysutils;
var s:string;
begin
s:=ExtractFileDir(ParamStr(0));
s:=s+'\abc\kk.txt';
writeln(s);
end.

以上程序在DELPHI7下运行通过。

Answer 2

也可以用GetCurrentDir 函数，取得当前的目录（您那个exe目录）然后用+'\abc\kk.txt'即可。
下面的例子程序是本人商用软件中取得数据库应用程序服务器设定的例子：
procedure TFrmMain.N8_1Click(Sender: TObject);
var
P1 :PChar;
FunctionName,CaptionName : string;
Handle1,Handle2 :THandle;
begin
P1:=PChar(GetCurrentDir+'\System\ServerNameDLL.dll');
FunctionName := 'ShowServerName';
CaptionName := '数据库应用程序服务器设定';
Handle1 := FrmMain.Handle;
Handle2 := FrmMain.Panel17.Handle;
GetProcDLLAddress(P1,FunctionName,CaptionName,Handle1,Handle2);
end;