用delphi create 捷徑目標多了" 無法開啟 & 作為email附件 無法直接開啟問題 |
缺席
|
belldandetw
一般會員 發表:1 回覆:0 積分:0 註冊:2006-12-12 發送簡訊給我 |
各位先進 請教依下 我的 code如下
function CreateLink(const lpszPathObj, lpszPathLink, lpszDesc: PChar): HRESULT; var hres: HRESULT; psl: IShellLink; ppf: IPersistFile; WidePath : Array[0..260] of WideChar; Info : Array[0..MAX_PATH] of Char; 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.SetPath(lpszPathObj); psl.SetWorkingDirectory('C:\datatec') ; // psl.SetDeforbiddenion(lpszDesc); hres := psl.QueryInterface(IID_IPersistFile,ppf); if (SUCCEEDED(hres)) then begin MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, lpszPathLink, -1, @WidePath, MAX_PATH); hres := ppf.Save(WidePath, False); ppf := nil; end; psl := nil; end; Result := hres; end; 產生問題如下 1.產生之捷徑目標 多了 "" 雙引號 所以沒辦法開 產生之目標字串如下("C:\qqq\Proj.exe 1021 970696 ID3381D3864D4899D3519D7314D3657D3312D6210D5382") 2.又此捷徑以mail夾檔方式傳出 email 但是office2003 無法直接開啟 而是一定要存檔 之後 使用者自己到存檔路徑開啟開啟此捷徑 有沒有其他方式可以讓office直接開啟並執行捷徑呢? 拜託各位先進 幫幫忙 感激不盡 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |