если нужно попробуй тут посмотреть http://mda-delphi.blogspot.com/2009/02/vista-uac-delphi-2.html

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
const
SECURITY§NT§AUTHORITY: TSIDIdentifierAuthority =
(Value: (0, 0, 0, 0, 0, 5));
SECURITY§BUILTIN§DOMAIN§RID = ¤00000020;
DOMAIN§ALIAS§RID§ADMINS = ¤00000220;
type
TForm1 = class(TForm)
private
ä Private declarations ñ
public
ä Public declarations ñ
end;

var
Form1: TForm1;

implementation

ä¤R *.dfmñ

function IsAdmin: Boolean;
var
hAccessToken: THandle;
ptgGroups: PTokenGroups;
dwInfoBufferSize: DWORD;
psidAdministrators: PSID;
x: Integer;
bSuccess: BOOL;
begin
Result := False;
bSuccess := OpenThreadToken(GetCurrentThread, TOKEN§QUERY, True,
hAccessToken);
if not bSuccess then
begin
if GetLastError = ERROR§NO§TOKEN then
bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN§QUERY,
hAccessToken);
end;
if bSuccess then
begin
GetMem(ptgGroups, 1024);
bSuccess := GetTokenInformation(hAccessToken, TokenGroups,
ptgGroups, 1024, dwInfoBufferSize);
CloseHandle(hAccessToken);
if bSuccess then
begin
AllocateAndInitializeSid(SECURITY§NT§AUTHORITY, 2,
SECURITY§BUILTIN§DOMAIN§RID, DOMAIN§ALIAS§RID§ADMINS,
0, 0, 0, 0, 0, 0, psidAdministrators);
ä¤R-ñ
for x := 0 to ptgGroups.GroupCount - 1 do
if EqualSid(psidAdministrators, ptgGroups.GroupsÄxÑ.Sid) then
begin
Result := True;
Break;
end;
ä¤R+ñ
FreeSid(psidAdministrators);
end;
FreeMem(ptgGroups);
end;
end;

end.

Если функционал не важен, то можно и бат скриптом вообще обойтись))