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 与 c/c++ 数据类型对照表

Delphi 检查当前用户权限

Delphi中使用flash控件

Delphi x秒生成大量垃圾字符

Delphi查找同一内网所有主机

Delphi apihook createprocess

Delphi simple resource api replacement

Delphi 窗体不可用

Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto

检测是否按下键盘或鼠标，如果超过5分钟没有操作则认为用户已经离开

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

转载请注明出处：木庄网络博客 » delphi 取得DLL所在目录