Delhpi den Apache yi Kapatmak

[CeRBeR]

Merhaba,

Hali hazırda yapmış olduğum bir program için apache yi açıp kapatmam gerekiyor
açma işlemi tamam winexec ile aşağıdaki codu kullanarak açabiliyorum

WinExec('bat\apache_start.bat',SW_HIDE);

daha sonra yine özel bir fonksiyonla açılıp açılmadığını da denetleyebiliyorum lakin kapanmasını bir türlü yapamıyorum

Denemelerim

1.) Bat doyasıyla kapatmak
Var olan bat dosyasını winexec komutuyla açıp apache yi susturmak kullandığım bat dosyası da

@echo off
httpd\bin\pv -f -k apache.exe -q
if not exist httpd\logs\httpd.pid GOTO exit
del httpd\logs\httpd.pid
pause
:exit

budur fakat parametre aldığından dolayı işlem yapmıyor veyahut yapıyorda ben göremiyorum

2.)Kill process kullanmak
http://www.delphipages.com/threads/t...71649&G=171434

aşağıdaki adresteki killprocess ı kullanmayı denedim apache yi kapatmak için parametre istediği için ve kill process da parametre almadığı için kullanamadım

3.)Shell execute kullanmak

// Determine Apache APP status 

        result =  execw("apache\\bin\\pv.exe apache*", SW_HIDE, &exit_code, 0);            if (result == 0) 
                    lbprintf(hList, "Apache stopped");  
                else 
                    lbprintf(hList, "ERROR: Apache  not stopped [%d]", result);

Yukardaki kodu xampp dan çaldım görüldüğü üzere pv.exe isimli bir dosyayı çağırıyıor çıkan sonuçlara göre if içerisinde kontrol ettirip kapanıp kapanmadığını bi yerlere yazdırıyor
Bu işlemi pv.exe kullanarak shellexecute fonksiyonuyla bende denedim ama parametre almasını becerediğim için bu denemede gümledi

sizden ricam bu yöntemlerimi göz önünde bulundurarak apache nin delphi içerisinden nasıl kapatıldığı konusunda bana yardımcı olmanız

teşekkürler

[hmustak]

execw("apache\\bin\\pv.exe apache*", SW_HIDE, &exit_code, 0); da

"apache\\bin\\pv.exe apache*" yazmakyerine ;

arabloğu yazıyorum, (sistemimde Delphi yok)



var
bilmemne:string;

begin
bilmemne :='httpd\bin\pv -f -k apache.exe -q';
execw(pchar(bilmemne), SW_HIDE, &exit_code, 0);
end;

Dene ve geri dön, olmazsa kuralım delphiyi