کمک - مشکلی در خصوص تابع ShellExecute در دلفی (فوری)

[میتی دات نت]

به نام خدا

با سلام خدمت همه دوستان :)

من می خواهم در برنامه توسط توابع API یک فایل pdf را باز کنم به صورت زیر :

<span dir=ltr><span dir=ltr>
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(0,'Open',Pchar('d:\Qs.pdf'),Nil,Nil,S W_NORMAL);
end;
</span></span>
ولی در موقع اجرای برنامه LOGO برنامه Adobe Acrobat را نشان داده ولی برنامه اصلی باز نشده و فایل مورد نظر را نمایش نمیدهد ولی اگر از قبل برنامه Adobe Acrobat باز باشد بدون هیچ مشکلی فایل مورد نظر را نمایش می دهد .

آیا کسی علت آنرا می داند . :?: :?:

آیا راه بهتری وجود دارد . :idea:

-----------------------------------------------------------------------------------------------------------
:?: در ضمن چگونه در این قسمت تایپ مطالب از سمت چپ به راست امکان پذیر است

[Sohrab_Tapar]

به این شکل از اون استفاده کن


AppName &#58;= 'C&#58;\WINME\Desktop\ti89la.pdf';
ShellExecute&#40;0 , 'Open' , PChar&#40;ExtractFileName&#40;AppName&#41;&#41; ,
'',PChar&#40;ExtractFilePath&#40;AppName&#41;&#41;,SW_SHOWNORMAL&#41;;

[Mohammad S]

برای بخش دوم سوالت هم:
http://www.barnamenevis.org/forum/faq.php?mode=bbcode

[SalarSoft]

این رو امتحان کن:

ShellExecute&#40;0,nil,Pchar&#40;'d&#58;\Qs.pdf'&#41;,Nil,Nil,SW_N ORMAL&#41;;

[میتی دات نت]

با سلام خدمت دوستان عزیز :lol:

جواب آقای Sohrab_Tapar کاملا درست بود و حتی نوشته خودم ولی اشکال در خود برنامه Adobe است .

نگارش شماره 5 آن را روی چند دستگاه امتحان کردم و همچنان همین مشکل برقرار بود ولی با نصب نگارش شماره 6 آن مشکل حل شد .

در خصوص پاسخ دوست عزیز SalarSoft به نظرم این حالت برای اجرای فایلهای exe باشد .

=====
با تشکر از همه دوستان :wink:

[MSK]

تابع FindExecutable هم مسیر برنامه اجرایی بازکننده یک فایل را برمی گرداند(در ShellAPI). :مخالف:
گفتم شاید بدرد بخوره. :متفکر:
:mrgreen:

[میتی دات نت]

به نام خدا


سلام (:D)

مثل خودم خیلی آقایی :wink:

:flower: