检查特定进程是否在delphi中提升

uses
  System.SysUtils, Winapi.Windows, Winapi.TlHelp32;

type
  TProcessInfo = record
    ProcessID: DWORD;
    ProcessName: string;
    Elevated: Boolean;
  end;

function GetProcessList: TArray<TProcessInfo>;
var
  SnapshotHandle: THandle;
  ProcessEntry32: TProcessEntry32;
begin
  SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
    if Process32First(SnapshotHandle, ProcessEntry32) then
    begin
      repeat
        SetLength(Result, Length(Result) + 1);
        Result[High(Result)].ProcessID := ProcessEntry32.th32ProcessID;
        Result[High(Result)].ProcessName := ProcessEntry32.szExeFile;
        Result[High(Result)].Elevated := IsProcessElevated(ProcessEntry32.th32ProcessID);
      until not Process32Next(SnapshotHandle, ProcessEntry32);
    end;
  finally
    CloseHandle(SnapshotHandle);
  end;
end;

function IsProcessElevated(ProcessID: DWORD): Boolean;
var
  TokenHandle: THandle;
  TokenInformation: TOKEN_ELEVATION;
  ReturnLength: DWORD;
begin
  Result := False;
  if OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, TokenHandle) then
  begin
    if GetTokenInformation(TokenHandle, TokenElevation, @TokenInformation, SizeOf(TokenInformation), ReturnLength) then
      Result := TokenInformation.TokenIsElevated <> 0;
    CloseHandle(TokenHandle);
  end;
end;

procedure CheckProcessElevation;
var
  ProcessList: TArray<TProcessInfo>;
  TargetProcessName: string;
  TargetProcessElevated: Boolean;
  ProcessInfo: TProcessInfo;
begin
  TargetProcessName := 'target.exe'; // 替换为目标进程的名称

  ProcessList := GetProcessList;
  TargetProcessElevated := False;

  for ProcessInfo in ProcessList do
  begin
    if SameText(ProcessInfo.ProcessName, TargetProcessName) then
    begin
      TargetProcessElevated := ProcessInfo.Elevated;
      Break;
    end;
  end;

  if TargetProcessElevated then
    ShowMessage('目标进程已提升')
  else
    ShowMessage('目标进程未提升');
end;