Program Açılmadan Önce Exe Çalıştırmak

[kaan_karabey]

Arkadaşlar Delphi 7 de Bir Uygulama Hazırladım Yalnız Uygulamayı Açmak İçin Tıkladığımda O Hazırladığım Uygulama Açılmadan Bir exe Çalıştırmak İstiyorum...

Yani Açılışta Şöyle Bir exe Çalıştırmak İstiyorum... Önce Bu exe Çalışacak Sonra Program Başlıyacak Bunu Nasıl Yapabilirim??? Yardımlarınızı Bekliyorum...

https://www.youtube.com/watch?v=5F7KVS_amRM

[barisatalay]

Videodaki olay bir splash scrrendir. Ayrı bir exe olduğunu sanmıyorum.

[warder]

project menüsünde source seçeneğine tıklayınca main fonksiyonunu içeren kodun bulunduğu dosya açılıyor.
Bilmiyorum delphide ve 7 versiyonunda var mı? C++ Builder i 5 versiyonundan beri kullanırım hepsinde var..
Her şeyin ilk başladığı yer orası.. Formlar create edilmeye başlamadan istediğiniz programa parametre gönderip başlatabilir, başladığından emin olana kadar bekleyebilir ve sonra akışı aşağıya yani formların create aşamalarına verebilirsiniz.
Programın ikinci kopyasının çalışmasının denetelendiği kısım dersem örnek kodlar da bulabilirsiniz.

[kaan_karabey]

Videodaki olay bir splash scrrendir. Ayrı bir exe olduğunu sanmıyorum.

o videoyu ben hazırladım exe dosyası o daha önceden eser diye bir arkadaşımız yazmış farklı bir sitede farklı bir programla bende aynı mantıgı kullanarak delphi ile program açılırken yapmak istiyorum


Zafere Giden Her Yol Mübahtır Diyerek Şöyle Bir Çözüm Ürettim

https://www.youtube.com/watch?v=Md0l5utZ97k

[G.Arkas]

Kod: Tümünü seç

Function ExecuteAndWait(sExecutableFile : String; wWindowState : Word = SW_SHOWNORMAL) : Boolean;
var
         siInfo  : TStartUpInfo;
         piInfo  : TProcessInformation;
begin
         FillChar(siInfo, SizeOf(siInfo), #0);

         with siInfo do begin
              cb          := SizeOf(siInfo);
              dwFlags     := STARTF_USESHOWWINDOW;
              wShowWindow := wWindowState;
         end;
         Result := CreateProcess(NIL, pChar(sExecutableFile), NIL, NIL, FALSE, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, NIL, pchar(ExtractFilePath(sExecutableFile)),siInfo, piInfo);
         if Result then
            WaitForSingleObject(piInfo.hprocess,INFINITE);
end;

Yukarıda ki kodda, önce çalıştırmak istediğin uygulamayı çalıştırıp sonra kendi uygulamanın formunun gösterilmesini sağlayabilirsin.

Kod: Tümünü seç

 if ExecuteAndWait('Saplash_Uygulaması.exe') then
 Form1.Show;

Parola ekranının OnCreate ya da OnShow olayına yazıp deneyebilirsin. Deneme şansım olmadı ama daha önce buna benzer işler de kullanmıştım.

[kaan_karabey]

Kod: Tümünü seç

Function ExecuteAndWait(sExecutableFile : String; wWindowState : Word = SW_SHOWNORMAL) : Boolean;
var
         siInfo  : TStartUpInfo;
         piInfo  : TProcessInformation;
begin
         FillChar(siInfo, SizeOf(siInfo), #0);

         with siInfo do begin
              cb          := SizeOf(siInfo);
              dwFlags     := STARTF_USESHOWWINDOW;
              wShowWindow := wWindowState;
         end;
         Result := CreateProcess(NIL, pChar(sExecutableFile), NIL, NIL, FALSE, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, NIL, pchar(ExtractFilePath(sExecutableFile)),siInfo, piInfo);
         if Result then
            WaitForSingleObject(piInfo.hprocess,INFINITE);
end;

Yukarıda ki kodda, önce çalıştırmak istediğin uygulamayı çalıştırıp sonra kendi uygulamanın formunun gösterilmesini sağlayabilirsin.

Kod: Tümünü seç

 if ExecuteAndWait('Saplash_Uygulaması.exe') then
 Form1.Show;

Parola ekranının OnCreate ya da OnShow olayına yazıp deneyebilirsin. Deneme şansım olmadı ama daha önce buna benzer işler de kullanmıştım.

Kardeşim Teşekkür Ederim Dediğim Gibi Çalışıyor