كيف أشغل برنامجي كمسؤول Administrator في Win7 ؟

[kachwahed]

مرحبا بكم أخواني الكرام

السلام عليكم ورحمة الله

منذ مدة شاهدت محاضرة Marco Cantu حول ذلك لكنها ضاعت مني والسورس أيضا
ملخصها:

كود :

http://www.prototypical.co.uk/pdf/wrp.pdf

إلى حين أجدها جرب هذه:

PHP كود :

function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
{
    See Step 3: Redesign for UAC Compatibility (UAC)
    http://msdn.microsoft.com/en-us/library/bb756922.aspx
}
var
    sei: TShellExecuteInfo;
begin
    ZeroMemory(@sei, SizeOf(sei));
    sei.cbSize := SizeOf(TShellExecuteInfo);
    sei.Wnd := hwnd;
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
    sei.lpVerb := PChar('runas');
    sei.lpFile := PChar(Filename); // PAnsiChar;
    if parameters <> '' then
        sei.lpParameters := PChar(parameters); // PAnsiChar;
    sei.nShow := SW_SHOWNORMAL; //Integer;

    Result := ShellExecuteEx(@sei);
end; 


ليس لدي Vista أو Seven لأجربها

راجع هنا أيضا محاضرة أخرى:

كود :

http://edn.embarcadero.com/article/33942

وهذا كتاب حول الموضوع:

كود :

http://www.delphi.org.nz/file.php/1/VistaUACandDelphi.pdf

بالتوفيق.