SOS!如何从快捷方式中读取到这个可执行文件的“长文件名” http://community.csdn.net/Expert/topic/4544/4544510.xml?temp=.2871363见此贴,当文件名是长文件名时,上面的贴子里面读出来的是带~的文件名,高手帮忙!深表感谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一个例子。program test;{$APPTYPE CONSOLE}uses SysUtils, Windows;function GetShortPath(s: string): string;var Buf: array[0..127] of char;begin Fillchar(buf, sizeof(buf), 0); getshortpathname(PChar(s), @Buf, sizeof(Buf)); result:=buf;end;function GetFullPath(s: string): string;var Buf: array[0..127] of char; P: PChar;begin Fillchar(buf, sizeof(buf), 0); getfullpathname(pchar(s), sizeof(buf), @buf, P); result:=Buf;end;begin writeln(GetShortPath(ParamStr(0))); writeln(GetFullPath(ExtractFileName(GetShortPath(ParamStr(0))))); ReadLn;end. 請訪問我的blog,以前寫的,http://blog.csdn.net/sailxia/archive/2004/10/25/151386.aspx 还有就是可以代开lnk文件然后直接从里面读,地址好像是从137开始的,自己用软件看看应该可以看到 sailxia(小帆) 的函数是我想要的,谢谢大家的热心帮忙! 动态生成frf文件的写法???急 如何在DELPHI中调用WINDOWS中的应用程序? 思悠悠,恨悠悠,恨到归时方始休,月明人倚楼!——可惜今晚没有明月伴我倚楼! 彩色进度条的问题!在线等待!!!!!!! 如何卸载delphi自带的F1BOOK 大侠们,快看看哇! 有关memo的三个简单问题 請問Delphi與Access編寫的應用程序怎樣打包﹖萬分著急﹗﹗﹗謝﹗﹗﹗ 各位路过的大侠,本人求个IE控制方面的思路????? 欢迎进入,来讨论 ERP 程序开发,来者都散分 关于Delphi中的Ado组件访问Access数据库的日期问题 QuickReport 打印支票问题,请各位帮帮忙
SysUtils, Windows;function GetShortPath(s: string): string;
var
Buf: array[0..127] of char;
begin
Fillchar(buf, sizeof(buf), 0);
getshortpathname(PChar(s), @Buf, sizeof(Buf));
result:=buf;
end;function GetFullPath(s: string): string;
var
Buf: array[0..127] of char;
P: PChar;
begin
Fillchar(buf, sizeof(buf), 0);
getfullpathname(pchar(s), sizeof(buf), @buf, P);
result:=Buf;
end;begin
writeln(GetShortPath(ParamStr(0)));
writeln(GetFullPath(ExtractFileName(GetShortPath(ParamStr(0)))));
ReadLn;
end.
http://blog.csdn.net/sailxia/archive/2004/10/25/151386.aspx