請問各位大大如何使用DELPHI來產生 .lnk 的捷徑檔呢? 由於我不會Borland C , 所看不懂先前己有的文章, 請大大不吝指導~~~ ^^

This one? http://delphi.ktop.com.tw/topic.php?topic_id=22505

const
    IID_IShellLink: TCLSID  = (D1:$000214EE; D2:$0; D3:$0; D4:($C0,$0,$0,$0,$0,$0,$0,$46));
    IID_IPersistFile: TGUID = (D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));    function CreateLink(const lpszPathObj, lpszPathLink, lpszDesc: PChar): HRESULT;
var
    hres: HRESULT;
    psl: IShellLink;
    ppf: IPersistFile;
    wsz: array[0..MAX_PATH] of WideChar;
begin
    hres := CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
        IID_IShellLink, psl);
    if (SUCCEEDED(hres)) then begin
        psl.SetPath(lpszPathObj);
        psl.SetDescription(lpszDesc);
        hres := psl.QueryInterface(IID_IPersistFile,ppf);
        if (SUCCEEDED(hres)) then begin
            MultiByteToWideChar(CP_ACP, 0, lpszPathLink, -1, wsz, MAX_PATH);
            hres := ppf.Save(wsz, TRUE);
            ppf := nil;
        end;
        psl := nil;
    end;
    Result := hres;
end;

謝謝william大大指導: 可是我把您的程式碼放上去RUN, 卻跑出一堆未定義的變數,請問我要 加什麼東西上去嗎??

Uses ShlObj and ActiveX. Remember to CoInitialize if needed.

謝謝 william 大大: 未定義的變數的問題己經解決了, 但是程式執行到 hres := CoCreateInstance(CLSID_ShellLink, nil,CLSCTX_INPROC_SERVER,IID_IShellLink, psl); 這行後 SUCCEEDED(hres) 都是失敗, 進不到if裏面的程式碼~ 請問大大要如何解決呢? 另外使用function方式是不是 CreateLink ('要建立捷徑的檔案路徑 檔名','建立捷徑的路徑','捷徑名稱 .lnk') 呢?? 謝謝 william 大大

Take a look at the function CoInitialize and CoUninitialize.

謝謝 william大大 我看了一位先進用到這個方式 hres:=S_FALSE; hres:=CoInitialize(0); 但雖然進入if 內 ,但執行到 psl.SetPath(lpszPathObj);時會EAccessViolation 的例外錯誤,請問要怎麼做才對呢, 請大大不吝指導~~~謝謝~~~

Are you using CoInitialize at the very beginning? e.g. CoInitialize(nil); hres := CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLink, psl); ....

FYI, if you are not building dll, uses ComObj there are initialization and finalization sections calling CoInitialize and CoUninitialize for you.

謝謝william大大不厭其煩的敎導~~~ 加上ComObj後就可以了~~ 因為我是學藝不精,讓您熱心的回覆~~~ ^^ ~

引言: 另外使用function方式是不是 CreateLink ('要建立捷徑的檔案路徑 檔名','建立捷徑的路徑','捷徑名稱 .lnk') 呢??

可否舉例說明, 小弟用下面測試, 沒有在 C:\ 中產生 A 捷徑, 該怎樣用 ? THANKS ! CreateLink ('C:\AUTOEXEC.BAT', 'C:\', 'A.LNK'); CreateLink ('C:\AUTOEXEC.BAT', 'C:\AUTOEXEC.BAT', 'A.LNK'); CreateLink ('C:\\BOOT.INI', 'C:\\BOOT.INI', 'A.LNK'); 發表人 - pcboy2 於 2004/09/06 12:30:04

暈............. 應該是 CreateLink ('C:\AUTOEXEC.BAT', 'C:\A.LNK', '訊息');