1,594
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
johnma 2003-06-10
- 打赏
- 举报
var
hModule: THandle;
buff: array[0..255] of Char;
begin
hModule := GetModuleHandle('Yourdllname.dll');
GetModuleFileName(hModule, buff, sizeof(buff));
dllpath:=ExtractFilePath(buff);
hModule: THandle;
buff: array[0..255] of Char;
begin
hModule := GetModuleHandle('Yourdllname.dll');
GetModuleFileName(hModule, buff, sizeof(buff));
dllpath:=ExtractFilePath(buff);
WLLF 2003-06-10
- 打赏
- 举报
工程自己编译出来的dll:
function LocalPath: string;
var
FileName: array[0..254] of char;
begin
GetModuleFileName(HInstance, FileName, 255);
Result := ExtractFilePath(FileName);
end;
function LocalPath: string;
var
FileName: array[0..254] of char;
begin
GetModuleFileName(HInstance, FileName, 255);
Result := ExtractFilePath(FileName);
end;
soaringsouth 2003-05-14
- 打赏
- 举报
相关dll是指系统的dll还是工程自己编译出来的dll？
