Question

Delphi中这句function ExtractFilePath(APath:string):string;的意思是？

function ExtractFilePath(APath:string):string; 还有这句function JHProc(nCode:integer; wParam: Longint; var EventStrut: TEVENTMSG): Longint; stdcall
本文来自焦点核(X)软件安全技术网，原文地址： http://www.xfocusx.com

谢谢诶各位大侠！

Answer 1

原文地址: http://www.xfocusx.com/Article/925.html其中 ExtracFilePath 函数和Delphi的SysUtils的ExtractFilePath函数同等效果,就是把一个完整的路径名截去EXE全名部分,只返回目录, 比如: ExtractFilePath('C:WINDOWS\System32\cmd.exe') 会返回: C:\WINDOWS\System32\ 最后是含反斜杠的, 上边的网址代码里的ExtractFilePath函数有一处错误:function ExtractFilePath(APath:string):string;
var
LI,LJ:Integer;
begin
if (Length(APath)<>0) and (Pos('\',APath)>0) then
begin
LJ:=0;
for LI:=Length(APath) downto 1 do
if APath[LI]='\' then //原文处是这样的 if APath[LI]='' then //这样子是无法获得正确的结果的!!!
begin
LJ:=LI;
Break;
end;
Result:=Copy(APath,1,LJ);
end
else
Result:='';
end; function JHProc 这个函数是一个回调函数, 它的格式没什么好说的, 因为是MSDN文档上的提供的固定格式, 你可以在MSDN里查 SetWindowsHookEx 这个函数, 找到 WH_JOURNALRECORD 这种漫游勾子的相关说明, 里边就有提供回调函数的格式的..... 必须注意的是, 使用回调函数时注意参数的压栈方式, 要加上StdCall.