Delphiの管理者権限D7 W7

Question

可能性の重複：Windows 7のためのDelphi 7で書かれ
Delphi: Prompt for UAC elevation when needed

私のアプリケーションは、いくつかの機能のために管理者権限が必要です。どうすれば管理者にソースコードからそれを上げることができますか？

私はこのコードでユーザー権限チェック：アプリケーションが管理者として起動した場合、それはTrueを返し、

function IsUserAdmin : boolean; 
const CAdminSia : TSidIdentifierAuthority = (value: (0, 0, 0, 0, 0, 5)); 
var sid : PSid; 
    ctm : function (token: dword; sid: pointer; var isMember: bool) : bool; stdcall; 
    b1 : bool; 
begin 
    result := false; 
    ctm := GetProcAddress(LoadLibrary('advapi32.dll'), 'CheckTokenMembership'); 
    if (@ctm <> nil) and AllocateAndInitializeSid(CAdminSia, 2, $20, $220, 0, 0, 0, 0, 0, 0, sid) then 
    begin 
    result := ctm(0, sid, b1) and b1; 
    FreeSid(sid); 
    end; 
end; 

を。そうでない場合はFalseを返します。 結果がFalseの場合、自動的にプログラムを管理者に昇格させたいと思います。

私は管理者に昇格させてみましたが、アプリケーションを起動するとUACプロンプトが表示され、「いいえ」と答えるとアプリケーションはまったく実行されません。

お手伝いが必要ですか？

物理ドライブへのRAWアクセスの管理者権限が必要です。

EDIT：

Iはまた、（ "このアプリケーションのUACを無効にする" ボタンを押した後）もコードからのみ、このアプリケーション（ParamStr（0））のためにUACを無効にしようとしました。

Answer 1

プロセスは起動時にトークンを受け取り、変更できません。したがって、その機能の一部のサブセットに対して昇格しているように思われるアプリが必要な場合は、その機能に新しいプロセスが必要です。あなたができないことは、既存のプロセスを高めることです。

Answer 2

管理者権限が必要な場合は、UACを経由する必要があります。 UACが無効でない限り、UACプロンプトが表示されていない管理者に昇格させることはできません。明らかに、管理者権限を与えるには、UACプロンプトでYESを選択する必要があります。