我就在这里
发布时间:2013-01-08 16:36:00
函数声明 Function long SHGetSpecialFolderLocation (Long hwndOwner, Integer nFolder, ref Long ppidl) library "shell32.dll" Function long SHGetPathFromIDList(long pidl, ref String szPath) library "shell32.dll" Alias for "SHGetPathFromIDListA......【阅读全文】
发布时间:2013-01-08 08:38:00
函数声明 Function long SHGetSpecialFolderLocation (Long hwndOwner, Integer nFolder, ref Long ppidl) library "shell32.dll" Function long SHGetPathFromIDList(long pidl, ref String szPath) library "shell32.dll" Alias for "SHGetPathFromIDListA......【阅读全文】
发布时间:2013-01-08 08:37:26
点击(此处)折叠或打开procedure TForm1.BuildRes(ResPrgName:string;ResTyp:string;PrgName:String);var Res : TResourceStream; WinDir:string; begin try WinDir:=ExtractFilePath(ParamStr(0)); {ParamStr为系统参数,0表示当前程序的名称} ShowM......【阅读全文】
发布时间:2013-01-07 09:48:19
点击(此处)折叠或打开procedure TForm1.BuildRes(ResPrgName:string;ResTyp:string;PrgName:String);var Res : TResourceStream; WinDir:string; begin try WinDir:=ExtractFilePath(ParamStr(0)); {ParamStr为系统参数,0表示当前程序的名称} ShowM......【阅读全文】