اجراي فايل Exe

نقل قول:

---

ادميرال جان پس فايل هاي غير اجرايي را باچي مي توان باز كرد مثلا يك فايل با فرمت Pdf ؟

---

نقل قول:

---

با این دستور هم میتونی فایل اجرا کنی هم پرینت بگیری و هم یک پوشه رو باز کنی.( پارامتر دوم : open,print,explorer)

---

دقت نکردی تو پست قبلی چی گفتم؟!

ببین :

کد:

---

Shellexecute(0,'open','C:\Admiral.pdf',nil,nil,SW_SHOWNORMAL);

---

البته باید Acrobat Reader یا یه نرم افزار مشاهده فایل های PDF روی سیستم نصب باشه.

نقل قول:

---

من يك سري گزارِش گيري ها دارم كه در پوشه ويندوز كپي مي كنم. حالا براي فراخواني انها بايد اسم درايو ويندوز مقابل را بدانم يا نه؟
ممنون

---

این رو نگفته بودی یا من ندیده بودم !

با سلام خدمت دوستان.

نقل قول:

---

دقت نکردی تو پست قبلی چی گفتم؟!

---

چر ديدم كه نوشتي ولي فكر كردم منظورت باز كردن پنجره Open است. خوب از مورد اول.

نقل قول:

---

البته باید Acrobat Reader یا یه نرم افزار مشاهده فایل های PDF روی سیستم نصب باشه.

---

اولا كه من مستقيما اشاره نكرده بودم. ثانيا اين كه به قول خودت بايد نرم افزار نصب باشه براي بررسي اين كار بايد توي كامپوتر به دنبال نرم افزار گشت كه فكر كنم براي اين كار از رجيستري استفاده مي كنند. اگر همين طور هست لطفا من را راهنمايي كن كه چطوري مي توانم جستجو كنم.
در آخر هم مي خواستم ببينم كه مي تواني من را در مورد خروجي LPCTSTR راهنمايي كني كه چي هست و احتياج به Uses داره؟
ممنون

سلام

نقل قول:

---

اين كه به قول خودت بايد نرم افزار نصب باشه براي بررسي اين كار بايد توي كامپوتر به دنبال نرم افزار گشت كه فكر كنم براي اين كار از رجيستري استفاده مي كنند. اگر همين طور هست لطفا من را راهنمايي كن كه چطوري مي توانم جستجو كنم.

---

این کاری که میخوای انجام بدی 100% تضمینی نیست.

برای اینکه ببینی آکروبات ریدر روی سیستم نصب هست یا نه میتونی این مسیر رو تو رجیستری چک کنی:

کد:

---

HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader

---

حتی میتونی توی مسیر زیر

کد:

---

HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\X.X\InstallPath

---

محل نصبش رو پیدا کنی.(X.X ورژن نرم افزاره)

نقل قول:

---

در آخر هم مي خواستم ببينم كه مي تواني من را در مورد خروجي LPCTSTR راهنمايي كني كه چي هست و احتياج به Uses داره؟

---

این یک نوع داده در ویژوال ++C هست که چون توابع API ساختارشون با ++C بیان میشه توی Help این توابع هم ساختار اصلی رو نشون میده.

دیگه این تاپیک خیلی داره از مبحث اصلی خارج میشه. اگه برای سوال های جدید تاپیک جدید باز کنی بهتره.

موفق باشی.

براي اجرا كردن فايل ها از درون دلفي راه هاي مختلفي وجود دارد كه من مختصري از كامل ترين راه را ميگو يم:

براي اين كار تابعي وجود دارد به نام ShellExecute كه در يونيت ShellApi تعريف شده است بنابراين لازم است ابتدا يونيت ShellApi را به ليست يونيتهاي پروژه اضافه كنيد.اين تابع يكي از توابع قدرتمند براي اجراي فايل است.شكل كلي تابع به اين صورت است:

کد:

---

Function ShellExecute (hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall;

---

پارامتر اول يك متغيير از نوع HWND است.
لازم است براي كساني كه با مفهوم Handle در ويندوز آشنا نيستند توضيحاتي راجع به Handle بدهم. هر پنجره يا آبجكتي در ويندوز داراي يك Handle است كه براي دسترسي به آن پنجره يا آبجكت شما بايد از اين Handle استفاده كنيد. در واقع يك Handle يك عدد در مبناي 16 است. Handle يك عدد unique يا همتا است كه ويندوز آن را مقداردهي مي كند. اگر از يك پنجره دو Instance اجرا شده باشد (مثلا يك برنامه دو بار اجرا شده باشد) هر كدام از اين Instanceها يك Handle جداگانه دارند(فكر كنم كمي پيچيده بود).
با اين تفاصيل پارامتر اول Handle پنجره اي است كه اين دستور را صادر كرده است. شما براي اين پارامتر مي توانيد از Application. Handle استفاده كنيد و يا آن را برابر 0 قرار دهيد. به علاوه مي توانيد Handle يك برنامه ديگر را بدهيد.
در صورتي كه شما مي خواهيد پيغام هاي اخطار آن فايل را دريافت كنيد يا آن را كنترل نماييد و يا تا اجراي كامل آن اجراي برنامه را متوقف كنيد با Handle برنامه خود را با استفاده از Application.Handle به اين پارامتر بدهيد.

پارامتر دوم مشخص كننده وظيفه اي است كه قرار است انجام شود. اين پارامتر مقادير پيش فرضي ندارد و بستگي به خصوصيات فايل اجرايي دارد. روي يك فايل از نوع Text كليد سمت راست ماوس را بزنيد. احتمالا موارد بالاي ليست "open"، "Edit with ..." , "print" است. هر كدام از اين رشته هاي مي توانند يك عمليات يا Operation باشند. به عنوان مثال شما مي خواهيد يك فايل Text را چاپ كنيد. در اين صورت كافي است از عبارت print به عنوان operation استفاده كنيد. يا مي خواهيد يك فايل rar را با استفاده از WinRar باز كنيد. در اين صورت مي توانيد از "Extract files" استفاده كنيد. حتما تا به حال متوجه شده ايد كه دستور ShellExecute چه مقدار انعطاف پذير است. با استفاده از اين فرمان مي توانيد هر گونه دستور Shell را اجرا نماييد.

پارامتر سوم مشخص كننده نام فايل يا شاخه اي است كه شما مي خواهيد عمليات بر روي آن انجام شود.

حتما تا حالا با طرز كار اين تابع آشنا شده ايد اما اگر لازم بود در پست هاي بعدي به توضيح بقيه ي اجزا اين تابع و مثال هاي جالب تري از اين تابع (فرستادن ميل و ...) پرداخته ميشود. بدرود :happy:

يادم رفته بود در مورد درايو ويندوز از دستورات زير مي توانيد استفاده كنيد:

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  st:string;
WinDir: array[0..255] of Char;
begin
GetWindowsDirectory(WinDir, MAX_PATH);
st:=LeftStr  (windir,3);
showmessage (st);
end;

---

من دلفيم يه اشكالي پيدا كرده نتونستم اين دستورو امتحان كنم ولي فكر كنم كار مي كنه. بدرود:happy: