The Portable Freeware Collection Forums

Code: Select all

SHELL "CALL script.bat"

Code: Select all

#define _UNICODE 1
#define UNICODE 1
#include "windows.bi"
#include "win\shellapi.bi"
#include "win\objbase.bi"

'' The easy way (can't wait for termination though):
''ShellExecute(0,"","test.bat",0,0,SW_HIDE)

'' The longer way..
Function ShellExWait(ByRef sFile As WString, _
    ByRef sParams As WString,_
    ByRef sDir As WString, _
    ByVal nShow As Integer) _
     As Integer
    
    Dim stShEx As SHELLEXECUTEINFOW 
    With stShEx
        .cbSize = sizeof(SHELLEXECUTEINFOW)
        .fMask = SEE_MASK_NOCLOSEPROCESS
        .hwnd = 0
        .lpVerb = 0
        .lpFile = @sFile
        .lpParameters = @sParams
        .lpDirectory = @sDir
        .nShow = nShow
        .hInstApp = 0
        .lpIDList = 0
        .lpClass = 0
        .hkeyClass = 0
        .dwHotKey = 0
        .hIcon = 0
        .hProcess = 0
    End With
    
    If (ShellExecuteEx(@stShEx) = FALSE) Then
        Return -1
    End If
    
    Dim hProcess As HANDLE
    hProcess = stShEx.hProcess
''
    WaitForSingleObject(hProcess, INFINITE)
    
    Dim dwExitCode As DWORD
    dwExitCode = -1

    GetExitCodeProcess(hProcess, @dwExitCode)
    CloseHandle(hProcess)
    
    Return dwExitCode
End Function

    '' Important for certain 'ShellExecute' commands (requires linking in libole32):
    CoInitializeEx(NULL, COINIT_APARTMENTTHREADED Or COINIT_DISABLE_OLE1DDE)

    '' Prevent critical errors pop-ups
	SetErrorMode(SEM_NOOPENFILEERRORBOX Or SEM_FAILCRITICALERRORS)

    Dim nExitCode As Integer
    
    '' Change to SW_SHOW to show the command prompt:
    nExitCode = ShellExWait("test.bat", "", "", SW_HIDE)
    Print "ExitCode = ";nExitCode
    Sleep

Code: Select all

#Include Once "windows.bi"

Const AppName = "yaP"

Dim BaseName As ZString * 14 = RTRIM(dir(command$(0)), ".exe")

MessageBox(NULL, BaseName, AppName, 0+16+262144)

Code: Select all

#define _UNICODE 1
#define UNICODE 1
#include "windows.bi"

Function ExeName() As WString Ptr
  Dim sExeName As WString * MAX_PATH
  Dim nLen As Integer
  Dim sRet As WString Ptr
  nLen = GetModuleFileName(NULL, sExeName, MAX_PATH)
  
  sRet = Allocate( (nLen + 1) * Len(WString) )
  If nLen = 0 Then
      *sRet = ""
  Else
      *sRet = sExeName
  End If
  Return sRet
End Function

'' == MAIN ==

Dim sFileName As WString Ptr
sFileName = ExeName()

MessageBox(0, !"Filename:\n" + *sFileName, "Name of Executable", MB_OK Or MB_ICONINFORMATION)