本文整理自网络,侵删。
//取得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 使用google translate实现tts
更多相关阅读请进入《Delphi》频道 >>