快捷方式的函式 (轉)
快捷方式的函式 (轉)[@more@]
快捷方式的
to:e271828@163">e271828@163.net
use shlobj,comobj,;//查DEL6VCL.HLP可以查到olecheck屬於comobj
procedure link(const appname,savepath:string);
var
sl:ILink;
pf:IPersistFile;
lnkname:wstring;
begin
olecheck(cocreateinstance(CLSID_ShellLink,nil,CLSCTX_INPROC_SERVER,IShellLink,sl));
pf:=sl as IPersistFile;
olecheck(sl.setpath(pchar(appname)));
lnkname:=savepath+''+changefileext(extractfilename(appname),'.lnk');
pf.save(pwidechar(lnkname),true);
end;
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-997981/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- Django - 檢視層 - 檢視函式及快捷方式Django函式
- C++的函式和模板函式 (轉)C++函式
- 函式式 Java 到函式式 Kotlin 的轉換函式JavaKotlin
- 函式組:TRUX 包含很多的轉換函式函式UX
- 類的轉換函式函式
- Oracle的日期函式(轉)Oracle函式
- Excel函式應用教程:函式的引數(轉)Excel函式
- numtoyminterval函式——數字轉換函式函式
- 轉化函式函式
- 轉換函式函式
- fseek函式(轉)函式
- RegQueryValue函式 (轉)函式
- JavaScript 函式(轉)JavaScript函式
- Excel函式應用教程:函式的輸入方法(轉)Excel函式
- Excel函式應用教程:函式與公式的概念(轉)Excel函式公式
- Oracle行轉列的函式Oracle函式
- 【轉】oracle的substr函式的用法Oracle函式
- 用好Windows快捷方式【轉】Windows
- shell裡邊子函式與主函式的例項(轉)函式
- oracle 分析函式(轉)Oracle函式
- Oracle分析函式{轉}Oracle函式
- oracle字串函式(轉)Oracle字串函式
- ORACLE函式大全(轉)Oracle函式
- Oracle字串函式--轉Oracle字串函式
- 6、ExportToGIF函式 (轉)Export函式
- 4、核心函式 (轉)函式
- 9、SetBackgroundEffect函式 (轉)函式
- 7、支援函式 (轉)函式
- asp常用函式 (轉)函式
- 分頁函式 (轉)函式
- javascript函式速查 (轉)JavaScript函式
- TAPI基本函式 (轉)API函式
- oracle 10g函式大全--轉換函式Oracle 10g函式
- ORACLE單行函式與多行函式之五:轉換函式示例Oracle函式
- 轉換時間戳的函式時間戳函式
- 日期轉換為raw的函式函式
- Oracle 8 的函式介紹(轉)Oracle函式
- PHP連結oracle的函式 (轉)PHPOracle函式