得到系统的特定文件夹可通过以下方法实现:
在uses之后声明API:
Function SHGetSpecialFolderPath(hwndOwner:Integer;pPath:Pchar;nFolder:Integer;bCreat:Boolean):integer;stdcall;external 'Shell32.dll' name 'SHGetSpecialFolderPathA';
调用:
var ppath:Pchar;
ppath:=StrAlloc(MAX_PATH);
SHGetSpecialFolderPath(0,ppath,9,false);//这是9就是sendto的位置,得到后建立一个程序的快捷方式过去就可以了,程序中ParamCount、ParamStr(ParamStr(0)是你的程序名)就可得到传入的参数,但要注意对长文件名的支持,可能你需要将几个ParamStr合起来才是真正的文件名,如c:\program files可能会是两个ParamStr,我有一个已实现的Delphi经典程序在Http://rbsky.myetang.com/SuperEx.exe,有兴趣的话你可以参考一下.