برنامه منو آنتی ویروس میگیره .... چکار کنم؟

[Mask]

با سلام
در برنامه نیاز به خاموش کردن سیستم دارم.
از کد زیر استفاده کردم.

ExitWindowsEx(EWX_SHUTDOWN,0)
یه چند روزی این کد به راحتی سیستم رو خاموش می کرد.
اما حالا دیگه از کار افتاده.
اومدم و از دستور زیر استفاده کردم.

WinExec('shutdown -s -t 0',HIDE_WINDOW);
حالا وقتی برنامه رو کامپایل میکنم. (آنتی ویروسم AVIRAهست) آنتی ویروس فایل منو به عنوان ویروس میشناسه.
البته باید بگم که دلفی من آلوده نیست چون فقط این برنامه رو آنتی میشناسه.
به نظرتون باید چکار کرد؟

[دلفــي]

از اين كد استفاده كن ببين جواب مي گيري يا نه !:



function PowerMng(Action:String;Force:Boolean):boolean;
var
rl: Cardinal;
hToken: Cardinal;
tkp: TOKEN_PRIVILEGES;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
//Get access to windows privilege
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;;
tkp.PrivilegeCount := 1;
AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
//Shutdown Windows
if (Action='1') and (Force=false) then
begin
ExitWindowsEx(EWX_SHUTDOWN, 0)
end
else
if (Action='1') and (Force=true) then
begin
(ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE, 0));
end;
//Restart/Reboot Windows
if (Action='2') and (Force=false) then
begin
ExitWindowsEx(EWX_REBOOT, 0)
end
else
if (Action='2') and (Force=true) then
begin
(ExitWindowsEx(EWX_REBOOT or EWX_FORCE, 0));
end;
//Log Off Windows
if (Action='3') and (Force=false) then
begin
ExitWindowsEx(EWX_LOGOFF, 0)
end
else
if (Action='3') and (Force=true) then
begin
(ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0));
end;
//Turn off monitor
if (Action='4') and (Force=true) then
begin
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MO NITORPOWER,2);
end
else
if (Action='4') and (Force=true) then
//Turn on monitor
begin
SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MO NITORPOWER,0);
end;
//Activating screensaver
if (Action='5') then
begin
DefWindowProc(Form1.Handle{Application.Handle},WM_ SYSCOMMAND,SC_SCREENSAVE,0);
end;
end;
end;

// مثال

procedure TForm1.Button1Click(Sender: TObject);
begin
PowerMng('1',false);
//خاموش کردن
PowerMng('2',false);
//ریبوت کردن
PowerMng('5',false);
//فعال کردن screen saver