پارامتر برای اجرای برنامه

[YASNA]

می خواهم یک برنامه را اجرا نماییم ولی از بیرون به این برنامه پارامتر ارسال شود
برای مثال یک برنامهEXE داریم اگر آنرا اجرا نمایید کاری انجام نمی دهد ولی اگر به آن پارامتر بفرستیم برنامه کار مورد نیاز ما را انجام دهد
خواش می‌کنم فقط کد برنامه و محل آنرا برایم بنویسید

[دنیای دلفی]

Winexec(Pchar('Notepad.exe ali.txt /a'));

:موفق:

[Delphi Skyline]

دنیای دلفی پارامتراش کامل نیست..

[دنیای دلفی]

با این کد چطوری :


function ExecAndWait(const Filename, Params: string;
WindowState: word): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
CmdLine := '"' + Filename + '"' + Params;

FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do
begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;

Result := CreateProcess(NIL, PChar(CmdLine), NIL, NIL, FALSE,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, NIL,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
if Result then
begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;

end;

[esi022]

WinExec('data\flx.exe /q ', SW_hide);

[YASNA]

از راهنمایی همه شما دوستان ممنون هستم
مشکل من این است که چه کدی را در کجا قرار بدهم که برنامه من پارامتر قبول کند این مطالبی که شما زحمت کشیدید چگونگی اجرای آن بود اگر کد را بگذارید و بگویید کجا آنرا بنویسم ممنون خواهم بود

[vcldeveloper]

مشکل من این است که چه کدی را در کجا قرار بدهم که برنامه من پارامتر قبول کند این مطالبی که شما زحمت کشیدید چگونگی اجرای آن بود اگر کد را بگذارید و بگویید کجا آنرا بنویسم ممنون خواهم بود
با استفاده از ParamCount می تونید تعدا پارامترهای ارسال شده به برنامه رو تشخیص بدید و با استفاده از ParamStr[i می تونید به هر کدوم از پارامترها دسترسی داشته باشید (i = شماره پارامتر. i=0 یعنی مسیر فایل اجرایی و i=1 میشه اولین پارامتر برنامه).

[YASNA]

از تمامی شما عزیزان شپاسگزارم به امید خوشبختی شما عزیزان

[دنیای دلفی]

:flower: