如何在win7建立以系統管理員身份執行的捷徑 |
|
尚未結案
|
|
brook
資深會員   發表：57 回覆：323 積分：371 註冊：2002-07-12 發送簡訊給我 |
我只找到建立一般捷徑的方法
[code cpp] #include #include #include void CreateShortCutW(UnicodeString FnLink,UnicodeString FnExe,UnicodeString WorkDir,UnicodeString WinDir) { IShellLinkW *psl; IPersistFile *ppf; IShellLinkDataList *pdl; wchar_t WChar[1024]; UnicodeString fn = WorkDir FnExe; try { OleCheck(CoCreateInstance(CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER, IID_IShellLink,(void**)&psl)); try { OleCheck(psl->QueryInterface(IID_IPersistFile,(void**)&ppf)); OleCheck(psl->SetDescription(FnLink.c_str())); OleCheck(psl->SetPath(fn.c_str())); OleCheck(psl->SetWorkingDirectory(WorkDir.c_str())); fn = WinDir FnLink; MultiByteToWideChar(CP_ACP,0,AnsiString(fn).c_str(),-1,WChar,1023); OleCheck(ppf->Save(WChar,true)); } catch(...){} ppf->Release(); } catch(...){} psl->Release(); } [/code] 編輯記錄
brook 重新編輯於 2015-07-29 15:32:12， 註解 無‧
|
|
pcplayer99
尊榮會員 發表：146 回覆：790 積分：632 註冊：2003-01-21 發送簡訊給我 |
|
|
leveon
資深會員  發表：30 回覆：389 積分：303 註冊：2012-02-12 發送簡訊給我 |
http://www.verboon.info/2011/03/running-an-application-as-administrator-or-in-compatibility-mode/
REG := TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY); REG.RootKey := HKEY_LOCAL_MACHINE; REG.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers',true); REG.WriteString('C:\AAAA.exe','RUNASADMIN'); Reg.CloseKey; REG.Free; 隨手寫的 沒測 |
發表時間：2015-07-29 15:31:35
IP:220.128.xxx.xxx 訂閱
系統時間：2024-04-20 5:23:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |