Txt Dosyasını Kapatmak

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