ارسال پارامتر خط فرمان به برنامه

[Delphi&Kylix_2939]

با سلام به دوستان عزيز

فرض كنيد يك فايل Exe با ذلفي Compile شده حالامي خواهيم به اون فايل Exe يك Switch بديم كه اگه كاربر با اون Switch برنامه رو اجرا كرد عمل خاصي انجام بشه
مثلا

C:\salam.exe /p

در صورت امكان اگر مثالي بياريد ممنون مي شم
با تشكر

[Felony]

به این کار ارسال پارامتر به صورت CommandLine گفنه میشه ، که میتونید توسط 2 تابع ParamCount و ParamStr در هنگام اجرای برنامه دستورات فرستاده شده رو بخونید و پردازش کنید .

به عنوان مثال کد زیر رو داخل رویداد OnCreate فرمتون بنویسید :


Form1.Caption:=(IntToStr(ParamCount));
if ParamStr(1)='Test' then ShowMessage('You test APP');

حالا برنامتون رو از طریق Run یا CMD با پارامتر Test به صورت زیر اجرا کنید :


"ProjectName.exe" Test