مشکل با تابع Run as admin

[h_mohamadi]

سلام بر دوستان و اساتید گرامی
من یک مشکل دارم و از شما خواهشمندم من را راهنمایی کنید.
من 2 تا فایل دارم یک فایل instalshild که با نام setup.exe است و یک فایل دلفی به نام progect1.exe است در فایل دلفی من 2 تا فاکنشن دارم یکی GetWinVersion که ویندوز کامپیوتر را تشخیص می دهد و یکی Runasadmin که اگر ویندوز ویستا یا ون بود فایل setup.exe را
Run as adminمی کند.من 2 تا مشکل دارم یکی اینکه فاکشن GetWinVersion برای ویندوز سون ندارم و دیگری اینکه وقتی فایل setup.exe توسط برنامه progect1.exe به صورت Run as admin اجرا می شود برنامه setup.exe ارور زیر را داده و اجرا نمی شود.
http://barnamenevis.org/forum/attachment.php?attachmentid=47881&stc=1&d=1272200973ممنون می شوم من را راهنمایی کنید

[Felony]

و دیگری اینکه وقتی فایل setup.exe توسط برنامه progect1.exe به صورت Run as admin اجرا می شود برنامه setup.exe ارور زیر را داده و اجرا نمی شود.
این پیغام خطا به این دلیل هست که فایل Setup رو با پارامتر نادرست فراخوانی کردید .

[h_mohamadi]

بی زحمت عکس رو آپلود کنید روی یه سرور اینترنتی .



http://plogger.ir (http://plogger.ir/)




اگر بر روی عکس کلیک کنید بزرگ می شودو قابل مشاهده می باشد

[h_mohamadi]

این پیغام خطا به این دلیل هست که فایل Setup رو با پارامتر نادرست فراخوانی کردید .


می شود من را راهنمایی کنید تا مشکلم حل شود

[Felony]

خوب تو همون پیغام خطا هم گفته شده فایل Setup چه پارامترهایی رو میپذیره .

[h_mohamadi]

خوب تو همون پیغام خطا هم گفته شده فایل Setup چه پارامترهایی رو میپذیره .

می شود من را کاملتر راهنمایی کنید که بدانم از چه پارامتری باید استفاده کنم و به چه صورتی؟

[Felony]

خوب میخواین چی کار کنید ؟ برای چی از پارامتر استفاده میکنید ؟

[مهران رسا]

اگر بر روی عکس کلیک کنید بزرگ می شودو قابل مشاهده می باشد
بله ! این پست قبل از اینکه شما پستتون رو ویرایش کنید ارسال شد .

[h_mohamadi]

خوب میخواین چی کار کنید ؟ برای چی از پارامتر استفاده میکنید ؟


من از پارامتری استفاده نمی کنم دستور من این است که اگر ویندوز ویستا و یا سون بود
این هم دستورات من

procedure TForm1.FormCreate(Sender: TObject);
begin
Dir:=copy(Application.ExeName,1,length(Application .ExeName)-13);//progect1.exe 12char
if GetWinVersion='WinVista' then
Runasadmin(0,Dir+'\setup.exe','setup.exe')
else
WinExec(PCHAR(Dir+'\setup.exe'),0);
Application.Terminate;
end;

[h_mohamadi]

از فايل manifest استفاده کردم که Delphi Coder (http://barnamenevis.org/forum/member.php?u=52731) راهنمايي نمودند