好房网

网站首页 百姓心声 > 正文

Delphi中这句function(ExtractFilePath(APath:string):string;的意思是介绍 Delphi中这句function ExtractFilePath(APath:string):string;的意思是详细情况如何)

2022-08-11 23:12:28 百姓心声 来源:
导读 想必现在有很多小伙伴对于Delphi中这句function ExtractFilePath(APath:string):string;的意思是方面的知识都比较想要了解,那么今天小好

想必现在有很多小伙伴对于Delphi中这句function ExtractFilePath(APath:string):string;的意思是方面的知识都比较想要了解,那么今天小好小编就为大家收集了一些关于Delphi中这句function ExtractFilePath(APath:string):string;的意思是方面的知识分享给大家,希望大家会喜欢哦。

1、原文地址:

2、其中 ExtracFilePath 函数和Delphi的SysUtils的ExtractFilePath函数同等效果,就是把一个完整的路径名截去EXE全名部分,只返回目录, 比如: ExtractFilePath('C:WINDOWSSystem32cmd.exe') 会返回: C:WINDOWSSystem32 最后是含反斜杠的, 上边的网址代码里的ExtractFilePath函数有一处错误:function ExtractFilePath(APath:string):string;

3、var

4、转志载或者引用本文内书深容请注明来外育源于芝士回答

5、LI,LJ:Integer;

6、begin

7、们会业形反月程果论,思术共转信须团置局。

8、if (Length(APath)<>0) and (Pos('',APath)>0) then

9、begin

10、LJ:=0;

11、for LI:=Length(APath) downto 1 do

12、这发学日社全看想油更具八专。

13、if APath[LI]='' then //原文处是这样的 if APath[LI]='' then //这样子是无法获得正确的结果的!!!

14、begin

15、LJ:=LI;

16、Break;

17、end;

18、Result:=Copy(APath,1,LJ);

19、end

20、else

21、Result:='';

22、end; function JHProc 这个函数是一个回调函数, 它的格式没什么好说的, 因为是MSDN文档上的提供的固定格式, 你可以在MSDN里查 SetWindowsHookEx 这个函数, 找到 WH_JOURNALRECORD 这种漫游勾子的相关说明, 里边就有提供回调函数的格式的..... 必须注意的是, 使用回调函数时注意参数的压栈方式, 要加上StdCall.

本文到此结束,希望对大家有所帮助。


版权说明: 本文由用户上传,如有侵权请联系删除!


标签: