各位先進 請教依下 我的 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直接開啟並執行捷徑呢?
拜託各位先進 幫幫忙 感激不盡