بررسی کد اجرای ادمین ( RunAsAdmin در manifest )

[Delphi2010]

سلام
لطفا این پروژه را بررسی کنید ، در دلفی 7 مشکلی نداره اما در دلفی 2010 نمی تونه یک برنامه مثلا اجرای notepad را اعمال کنه ،
مشکلی در خوده manifest نیست فقط تابع RunAsAdmin در دلفی 7 جواب میده و در دلفی 2010 جواب نمیده.

[Delphi2010]

مشکل کد بالا یه نکته ی بسیار ریز داره ، برای کسایی که با دلفی 2010 کار می کنند ، در تابع
RunAsAdmin یک متغیر تعریف شده

var
sei: TShellExecuteInfoA;

که باید به جای آن بصورت زیر تعریف شود :

var
sei: TShellExecuteInfoW;