Add function show_window to iminimise cmd windows via Win32 ShowWindow

[dataflex/df32func] / src / df32 / win32.inc

diff --git a/src/df32/win32.inc b/src/df32/win32.inc
index cd6dc5a493893546c885fa80abeb0b0bb126f8cf..d792ecc1fde85e94513e99ecd0db69b3ed9769ba 100644 (file)
--- a/src/df32/win32.inc
+++ b/src/df32/win32.inc
@@ -452,6 +452,18 @@ function disable_close global integer argv returns integer
     \r
     function_return 0\r
 end_function\r
+
+// Manipulate cmd window to minimise maximise etc. E.g show_window("pap", SW_MINIMIZE)
+function show_window global string argv integer argv2 returns integer
+    local number Ret
+    local handle hWnd
+
+    move (SetConsoleTitle(argv)) to strmark     
+    move (FindWindow(0, argv)) to hWnd      
+    move (ShowWindow(hWnd, argv2)) to ret   
+
+    function_return ret
+end_function
 \r
 // This function will run any external application directly from dataflex\r
 // argv = application to run (command name/path) argv2 = any parameters to pass to the program argv3 = directory to run from\r