shellexcute + bat dosyası

[a_o]

mrb arkadaşlar.
elimde bir bat dosyası var ve bu dosyanın içindede dosya sıkıştırma kodları var. şimdi o bat dosyasının içindekileri çalıştırmam gerekiyor. shellexecute ile çalıştırabiliyorum. ama onunla çalıştırınca ekrana commandcom penceresi de geliyo. müşteri ise onun gelmesini istemiyo. ekranda hiç bişey çıkmadan herşey arka planda olsun bitsin istiyo. bunu nasıl yapabilirim?

bat dosyamdaki kodlar

Kod: Tümünü seç

@echo off
net stop mssqlserver
arj32 a -r C:\YEDEK\%1 d:\eta_AA\*.*
NET START MSSQLSERVER
ARJ32 a -ru c:\yedek\%1 C:\ae\BELGELERIM\*.*

bu dosyayı çalıştırdıktan sonra C nin altında yedek die bi klasörün içine D nin içindeki eta_AA dosyasını ve belgelerimi rarlayıp koyuyor. ama dediğim gibi ekrana command com çıkıyor.
shellexecute lü olarak yazdığım kodum:

Kod: Tümünü seç

ShellExecute(0, 'open', pchar('a.bat'), nil, nil, SW_MAXIMIZE);

SW_MINIMIZE desem altta çıkıyo. bense hiç görünmesini istemiyorum.
bunu nasıl yapabilirim_?
sadece arj yle başlayan satırları çalıştırabilirmiyim_ ? kod gibi?
bu konuda yardımcı olabilirmisiniz_?
ii çalışmalar
kolay gelsin

[KarizMan]

S.A.
SW_Hide olarak denerseniz olur.
İyi çalışmalar

[a_o]

ama o zamanda sıkıştırma işleminin ne zaman biteceği belli olmuyo. müşteri direk kapatırsa programı sıkıştırma yarıda kalcak. sıkıştırmanın bittiğini bi şekilde müşteriye belirtmem lazım. onu nasıl yapabilirim. cmd görünürken bittiğini anlıyoduk ama cmd gizlenince o da kayboluyo. ne zaman bittiğini anlayamıyorum. bunu nasıl düzeltebilirim?

[vkamadan]

Merhabalar ,

Kod: Tümünü seç

USES ShellApi;

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
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;

Fonksiyonunu Declare Edin,
Kullanırken ,

Kod: Tümünü seç

if ExecAndWait('c:\batdosyasi.bat','',SW_Hide) then
ShowMessage('İşlem Tamamlandı') else ShowMessage('İşlem Tamamlanamadı..!!')

Bu fonksiyon , çalıştırdığınız program kapanan kadar bekler sonra code blokları kaldığı yerden devam eder,
iyi çalışamalar.

[a_o]

merhaba
çok tşk ederim.dediğiniz gibi olunca çalıştı sorunsuzca
kolay gelsin.
ii çalışmalar.