1,184
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
wxniming 2003-02-21
- 打赏
- 举报
good
sysu 2003-02-21
- 打赏
- 举报
上面我是在EXE里试的，在DLL中取到的就是调用它的程序路径。
sysu 2003-02-21
- 打赏
- 举报
// Trim(app)就是调用程序的全路径
procedure TForm1.Button1Click(Sender: TObject);
var app: string;
begin
SetLength(app, MAX_PATH);
GetModuleFileName(0, PChar(app), MAX_PATH);
ShowMessage(Trim(app));
end;
procedure TForm1.Button1Click(Sender: TObject);
var app: string;
begin
SetLength(app, MAX_PATH);
GetModuleFileName(0, PChar(app), MAX_PATH);
ShowMessage(Trim(app));
end;
