我有看了一下,http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34118 這篇文章,可是裏面有一個參數是要填檔案入徑的,但是我在我的電腦中,看C槽的捷逕路徑看不到ㄝ...它是放在哪個目錄中阿..

您好: 若捷徑不存在會建立一個捷徑,若存在,則會去修改. 以下是用delphi寫的,但原理一樣,我下面有一個使用他的範例,您自己改一下.    使用單元

uses shlobj,comobj,activex;    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 TForm1.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;    procedure TForm1.Button2Click(Sender: TObject);
begin
CreateLink ('C:\AUTOEXEC1.BAT', 'C:\A.LNK', '訊息');
end;

第一個參數代表您要執行什麼. 第二個參數代表這個捷徑的檔名. 第三個參數代表這個捷徑內的說明. 以您要使用來說就是 CreateLink ('C:\', 'D:\Documents and Settings\Administrator\桌面', '訊息');

supman,謝謝喔~~~另外我想問的是,像我一開始不知道怎麼解決這個問題時,第一個就跑去msdn查,可是我keyword是下shortcut...看到你們程式的內容,是用IID_IShellLink,CoCreateInstance來解決的...你們都是怎麼下keyword的阿..因為我看我要是下shortcut應該會找不到答案吧~~~

您好: 我是把能夠想到的關鍵字都做一個聯想去試試看,然後得到範例,再去實驗,不過像這個問題,我之前是搜尋捷徑,然後改一下程式,就得到答案了.