فراخوانی برنامه های تحت ویندوز با SheellExecute یا WinExec

[موسوی]

باسلام
من در برنامه ای با یکی از دستورات گفته شده در عنوان سوال یه برنامه کاربردی دیگه رو صدا میزنم واجرا میکنم
حالا میخوام بدونم که:
1-چطوری میتونم وقتی برنامه اول(اصلی) رو میبندم برنامه فراخوانی شده هم بسته بشه
2-آیا روشی برای اجرای برنامه دوم بصورت Modal وجود داره یا نه
وجدانا حوصله Search ندارم جواب بدید :lol: :wink:

[Kambiz]

function Execute(const CmdLine: String; ShowCmd: Word; Wait: Boolean): Boolean;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
Result := False;
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := ShowCmd;
end;
if CreateProcess(nil, PChar(CmdLine), nil, nil, False,
CREATE_NEW_PROCESS_GROUP or NORMAL_PRIORITY_CLASS, nil, nil,
StartupInfo, ProcessInfo) then
begin
if Wait then WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
Result := True;
end;
end;

[موسوی]

بسیار متشکرم
اگه ممکنه یه توضیح کلی همر مورد دستورات بالا بدید

[Kambiz]

توضیح هر دستور رو می‌تونی در راهنمای ویندوز پیدا کنی.
برای نمونه فراخوانی زیر باعث می‌شه که NotePad اجرا بشه و تا وقتی که NotePad بسته نشده٬ اجرای برنامه اصلی متوقف می‌شه.


Execute('C:\Windows\System32\NotePad.exe', SW_SHOW, True);
اگر تابع به هر دلیلی موفق به اجرای برنامه نشه مقدار False رو برمی‌گردونه٬ وگرنه مقدار برگشتی تابع True هست.

[موسوی]

متشکرم

[دنی کوئیل]

چرا وقتی به جای آدرس از متغییر استفاده می کنی Error میده

[Hamid_PaK]

باید از تابع PChar استفاده کنید چون آرگومان ورودی از نوع Pointer برای Char می باشد ...



WinExe(pChar( a String Variable ),SW_SHOW);


یا حق !!!

[MiRHaDi]

سلام
زمان آخرین پست :
Saturday 06 December 2003
زمان سوال بعدی :
Monday 16 January 2006

این نشون میده که هیچ وقت پست ها قدیمی نمیشن :)
بای