بازکردن فایل عکس

با سلام
اگر بخواهيم يک فايل عکس رو توسط برنامه windows picture and fax viewer ( همون برنامه خود ويندوز که عکس ها را باز مي کند)
از فرم توسط يک دکمه اين کار رو انجام داد بايد چيکار کرد
از دستور openfile نيز استفاده مي کنم نمي دونم ميشه انجام داد و پارامترهاي اون چيه؟
ممنون و با تشکر:11:

با برنامه نقاشی ویندوز کدش میشه این :

کد:

---

winexec('mspaint G:\Bank\graphic\wallpaper\4dx4d5c.jpg',4);

---

شاید اگر اسم فایل windows picture and fax viewe رو بدونی بشه جایگزینش کنی با mspaint احتماله زیاد میشه

نقل قول:

---

با سلام
اگر بخواهيم يک فايل عکس رو توسط برنامه windows picture and fax viewer ( همون برنامه خود ويندوز که عکس ها را باز مي کند)
از فرم توسط يک دکمه اين کار رو انجام داد بايد چيکار کرد
از دستور openfile نيز استفاده مي کنم نمي دونم ميشه انجام داد و پارامترهاي اون چيه؟

---

سلام
براي اين كار ميتونيد از تابع ShellExecute استفاده كنيد ، اين تابع يك تابع API هست پس براي استفاده از آن بايد يونيت ShellApi رو به قسمت Uses اضافه كنيد ...
نحوه استفاده از تابع براي اين كار هم به صورت زير هست :

کد:

---

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 ShellExecute(Handle, '', 'Picture Address', '', '', SW_SHOWNORMAL);
end;

---

به جاي Picture Address بايد آدرس فايل رو بنويسيد ( كلا آدرس هر فايلي رو بنويسيد ، اجراش ميكنه )

با همون تابعي كه دوستمون گفتن هم ميشه اين كار رو كرد ، فقط كافيه آدرس عكس رو بنويسيد ...

توجه كنيد كه تصاوير بر اساس تنظيمات ويندوز اجرا مي شن ، مثلا اگه آدرس يك فايل PSD رو بديد و برنامه فتوشاپ هم نصب باشه ، برنامه فتوشاپ عكس رو باز ميكنه ...

موفق باشيد ...