Birde bat dosyasını hangi komutla çalıştırabilirim

[Misafir]

winexec komutunu kullandım exeler çalışıo fakat bat çalışmıo yoksa onun için başka bir komut mu kullanılıo.....

[ender_arslanturk]

Kod: Tümünü seç

procedure doskomutu(komut:string;mesajver:boolean); 
var
Startupinfo:TStartupinfo; 
ProcessInfo:TProcessInformation;
begin 
   if terminateprocess(processinfo.hProcess,0)=NULL then 
   begin
      if mesajver then showmessage('Devam eden islem iptal edilemedi');
      exit;
   end;

   FillChar(StartupInfo,Sizeof(StartupInfo),#0); 
   StartupInfo.cb := Sizeof(StartupInfo); 
   StartupInfo.wShowWindow := SW_HIDE; 
   StartupInfo.dwFlags:=STARTF_USESHOWWINDOW; 
   if not CreateProcess(nil, 
                        Pchar('c:\command.com /c '+komut), 
                        nil, 
                        nil,
                        true,
                        NORMAL_PRIORITY_CLASS,
                        nil, 
                        nil, 
                        StartupInfo, 
                        ProcessInfo) then 
                        begin
                            if mesajver then
                   ShowMessage('Islem gerceklestirilemedi') 
                        end    
   else 
   begin
     if mesajver then ShowMessage('Islem tamam') 
   end;     
end; 

Bu yordamin kullanimi;

procedure TForm1.Button1Click(Sender: TObject);
begin
doskomutu('copy c:\autoexec.bat a:\autoexec.dat',false);
end;

Sadece bir örnek

[Misafir]

yaa sağolun da bu yazdığınız bu programla bnm sorduğumun alakası yok
ben sadece *.bat dosyasını çalıştırmak için gereken komutu sormuştumm

yani

gerekenkomut('c:\windows\bilmemne.bat');
gibi.....

[ender_arslanturk]

[t-hex]

Hayır farklı bir komuta gerek yok sanırım.

Kod: Tümünü seç

  WinExec('c:\test.bat',SW_SHOWNORMAL);

Bu komutla çalıştırdım. Eğer hala olmuyorsa

Kod: Tümünü seç

  WinExec('CMD /C c:\test.bat',SW_SHOWNORMAL);

gibi deneyin

[Misafir]

winexec dos promptsuz olanı kullanıyoruum
yani ilk yazdıınız komut onda açılır gibi oluo ama goruntu kalıcıd deil yani bian bişiler gorunup gidio

ikinci komuta gelince onuda kullandım ama onda da dos promptunda açılıo açılan da açılamasını istediğim application değill

[miskin]

yaa sağolun da bu yazdığınız bu programla bnm sorduğumun alakası yok
ben sadece *.bat dosyasını çalıştırmak için gereken komutu sormuştumm

yani

gerekenkomut('c:\windows\bilmemne.bat');
gibi.....

Bu Forumda davranis kurallarini daha okumadim , ama her iyi calisan forumda oldugu gibi olacagini tahmin ediyorum. Bana göre cevabi anlamak icinde biraz calisma göstermek lazim.
Senin alakasi yok dedigin bölüm, gayet genis alinmis, senin sorunu cözmeye yeterli oldugu gibi, windows da bulunan her programi cagirabilen, programi kapatabilen, saklayabilen, programin kapandigini bildiren yeteneklere sahip. Senin isine simdi yaramasada, Ilerde bu soruna benzer sorulari cevaplayacak gücte.

miskin

[Misafir]

yani t hex arkadaşımız gayet gusel cvp verdii sorunumu da nerdese cozduu sen burda benm kafamı karıştırmak deil sorduum soruya cvp vermen gerektiini düşünüorm yeterince çaba gosteriorm caba gostermek senin annattığın bu işlere yarar dediğin ama alakası olmayan o progragrama kafamı yormam değildir...

[Misafir]

pardon bişiyide duzeltiyim ender arkadasım ozur diliorm miskin arkadaşımızaydı solediklerim...

[t-hex]

yani ilk yazdıınız komut onda açılır gibi oluo ama goruntu kalıcıd deil yani bian bişiler gorunup gidio

Şimdi bat dosyasına yazdıklarınızın ne yapması gerektiğini bilmiyorum ama siz burda çıkan yazıların ekranda kalmasını istiyorsanız, bat dosyasının en son satırına sonuna "pause" yazın.

[miskin]

sen burda benm kafamı karıştırmak deil sorduum soruya cvp vermen gerektiini düşünüorm....

Eger agresif davranmazda help te veya baska yerde CreateProcess'i ararsaniz ne ise yaradigini anlarsaniz, size getirecekleri, problemi cözmek icin kazandiginiz 1 saatten daha fazladir.
Forumun amaci sadece sorunlari cözmek degil, yapabiliyorsa yol göstermektir.

miskin