Konu: Txt Dosyasını Kapatmak
Herkese Merhaba
ShellExecute(0,'open','notlar.txt',0,0,1) komutuyla dosyayı açıyorum. (not defteriyle)
Açık olan bu dosyayı kodlarla nasıl kapatabilirim?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » Txt Dosyasını Kapatmak
Herkese Merhaba
ShellExecute(0,'open','notlar.txt',0,0,1) komutuyla dosyayı açıyorum. (not defteriyle)
Açık olan bu dosyayı kodlarla nasıl kapatabilirim?
eski bir mesaj ama cevapsız kalmasın
Clear
progac("calc.exe")
progac("notepad.exe")
Wait "kapatmak için bir tusa basin"
progkapa("hesap makinesi")
progkapa("adsız - not defteri")
Return
*****************
Procedure progac(prodadi)
#Define SW_SHOWNORMAL 1
Local HWnd
Declare Integer WinExec In kernel32 String lpCmdLine,Integer nCmdShow
=WinExec(prodadi,SW_SHOWNORMAL)
Clear Dlls WinExec
Endproc
*******************
Procedure progkapa(prodadi)
#Define WM_QUIT 18
Local HWnd
Declare Integer FindWindow In user32 String lpClassName,String lpWindowName
Declare SHORT PostMessage In user32 Integer HWnd,Integer Msg,String @ wParam,Integer Lparam
HWnd=FindWindow(.Null.,prodadi)
If HWnd<>0
=PostMessage(HWnd,WM_QUIT,0,0)
Endif
Clear Dlls FindWindow,PostMessage
Endproc
örnekte görüldüğü gibi açmak kolayda, kapatırken programın caption ı bilmek gerekiyor.
bu aralar api lerle dans ediyorsun galiba
teşekkürler
tam bu konuyla uğraşırken mesajı gördüm. kopyala yapıştır yaptım:)
Selam Erdal, sesin hiç çıkmıyor(du)....
fox4um » Kodlama ve Komutlar » Txt Dosyasını Kapatmak