farkli bir exe yi parented acmak

[ikra]

selamu aleyküm.

iki adet exe dosyasi hazirlayip, birinci exe den butona basildiginda ikinci exe birinci exe'ye parented acilabilinir mi?

evet ise bunu nasil yapabilirim...

simdi den tesekkür ediyorum...
selam ve dua ile...

[lazio]

Amacın 2.exe yi çalıştırıp işi bitene kadar 1.exe dönmemek ise;

Kod: Tümünü seç

function RunProcess(const AppPath:string; MustWait: Boolean; AppParams: string; Visibility: Word):DWORD;
var
 SI: TStartupInfo;
 PI: TProcessInformation;
 Proc: THandle;
 zFileName, zParams: array[0..79] of Char;
begin
 FillChar(SI, SizeOf(SI), 0);
 SI.cb := SizeOf(SI);
 SI.wShowWindow := Visibility;
 if not CreateProcess(StrPCopy(zFileName, AppPath),
     StrPCopy(zParams, AppParams),
  nil, nil, false, Normal_Priority_Class, nil, nil, SI, PI) then
   raise Exception.CreateFmt('Failed to excecute program ' +
        AppPath + '. Error Code %d', [GetLastError]);

 Proc := PI.hProcess;
 CloseHandle(PI.hThread);

 if MustWait then
  if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
   GetExitCodeProcess(Proc, Result);
 CloseHandle(Proc);
end;


RunProcess('notepad.exe', True, '', SW_SHOWNORMAL);

[ikra]

bunu hemen deniyeyim... Allah razi olsun hocam...

ama birinci exe ye de dönebilmem gerekiyor. bunu engeller mi?

simdi amac su:
her bir modülü ayri bir exe halinde compile etmek, ve ana modül üzerinden diger exeler ile de calisabilmek. ama birden fazla exe ayni anda acik olmayacak.
söyle ki, isciler butonuna bastigimda isciler.exe calisacak ve ben müsteri butonuna bastigimda, önce isciler exe kapanacak ve daha sonra müsteri exe acilacak...

gereksiz programlarin calisip sistemi bosuna yüklemesini engellemek icin ilk cagirdigim exe nin kapanmasi sart...


tekrar tesekkür ediyorum...

[ikra]

parented acmadi