How to close a .ktn file by Lb

[emy]

Hello every one
I would like to know if it is possible to close  a file i.e anotherfile.ktn started by namefile.bas
Thank You
Regards.
Following what I have tried,  but it doesn't work !

 trytest.zip (1.32 KB)

[Stefan Pendl]

You cannot close another process.
You can send key presses to another window, see my sample for testing LB5 samples at libertybasiccom.proboards.com/thread/1622/program-test-lb5-alpha
Sending "Alt+F4" will close a window.

[Brandon Parker]

Try using the code below. This may not always work due to permissions and such, but it proves fruitful quite often. It seems to close the Hello.tkn after it is running using the LB Runtime with no issues.

Print SendMessage(FindWindow("H E L L O !"), _WM_CLOSE, _NULL, _NULL)
End


'_________________________________________________________________________________________________________________________________________________________
'_________________________________________________________________________________________________________________________________________________________

   Function FindWindow(lpWindowName$)
       lpWindowName$ = lpWindowName$ + chr$(0)
       CallDLL #user32, "FindWindowA", _NULL           As ulong, _
                                       lpWindowName$   As ptr, _
                                       FindWindow      As ulong
   End Function

'_________________________________________________________________________________________________________________________________________________________
'_________________________________________________________________________________________________________________________________________________________

   Function SendMessage(hWnd, Msg, wParam, lParam)
       CallDLL #user32, "SendMessageA" , hWnd        As ulong, _
                                         Msg         As long, _
                                         wParam      As long, _
                                         lParam      As long, _
                                         SendMessage As long
   End Function


{:0)

Brandon Parker

[emy]

Thank You Stefan for Your answer. I will take a look at the sample.

Thank You Brandon for Your answer. I will try the example code.

I will let You know about.

Regards.