delphi 取得DLL所在目录


本文整理自网络,侵删。

 //取得DLL所在目录
function GetDLLDirectory(FullPath: string): string;
var
i: integer;
begin
i := length(FullPath);
while i>=1 do
begin
if (FullPath[i]='\') then break;
dec(i);
end;
Result := copy(FullPath,1,i-9)+'HookDLL\';
end;

end.

相关阅读 >>

Delphi中emptyparam参数被改写问题

Delphi 数组定义

Delphi 让程序支持外来文件拖放的单元文件

Delphi cxgrid使用小结

Delphi listview1 加载文件列表用法

Delphi 使用google translate实现tts

Delphi2010 的自带的内存泄漏检测

Delphi 从记事本导入记录

Delphi 遍历目录

Delphi中使用临界区来让线程同步

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...