project BLF > class Win32Lib > method Dummy

Description

Dummy method for hosting the redirection definitions to the Win32 methods


Parameters


icWorkingDirectoryinputcharacterWorking directory
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/win32lib.p)

END PROCEDURE.

PROCEDURE SetCurrentDirectoryA EXTERNAL "KERNEL32.DLL":
    DEFINE INPUT  PARAMETER chrCurDir AS CHARACTER.
    DEFINE RETURN PARAMETER SetCurrentDirectoryAResult AS LONG.
END PROCEDURE.

PROCEDURE CloseHandle EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER hObject     AS LONG.
    DEFINE RETURN PARAMETER ReturnValue AS LONG.
END PROCEDURE.

PROCEDURE OpenProcess EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER dwDesiredAccess AS LONG.
    DEFINE INPUT  PARAMETER bInheritHandle  AS LONG.
    DEFINE INPUT  PARAMETER dwProcessId     AS LONG.
    DEFINE RETURN PARAMETER bResult         AS LONG.
END PROCEDURE.

PROCEDURE UuidCreateSequential EXTERNAL "rpcrt4.dll":U :
    DEFINE INPUT-OUTPUT PARAMETER opi-guid AS CHAR NO-UNDO.
END PROCEDURE. 

PROCEDURE CreateProcessA EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER lpApplicationName    AS LONG. /* NULL */
    DEFINE INPUT  PARAMETER lpCommandline        AS CHARACTER.
    DEFINE INPUT  PARAMETER lpProcessAttributes  AS LONG.
    DEFINE INPUT  PARAMETER lpThreadAttributes   AS LONG.
    DEFINE INPUT  PARAMETER bInheritHandles      AS LONG.
    DEFINE INPUT  PARAMETER dCreationFlags       AS LONG.
    DEFINE INPUT  PARAMETER lpEnvironment        AS LONG.
    DEFINE INPUT  PARAMETER lpCurrentDirectory   AS LONG.
    DEFINE INPUT  PARAMETER lpStartupInfo        AS LONG.
    DEFINE INPUT  PARAMETER lpProcessInformation AS LONG.
    DEFINE RETURN PARAMETER bResult              AS LONG.
END PROCEDURE.

PROCEDURE FormatMessageA EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER dwFlags      AS LONG.
    DEFINE INPUT  PARAMETER lpSource     AS LONG.
    DEFINE INPUT  PARAMETER dwMessageID  AS LONG.
    DEFINE INPUT  PARAMETER dwLanguageID AS LONG.
    DEFINE OUTPUT PARAMETER lpBuffer     AS MEMPTR.
    DEFINE INPUT  PARAMETER nSize        AS LONG.
    DEFINE INPUT  PARAMETER lpArguments  AS LONG.
    DEFINE RETURN PARAMETER nTextLength  AS LONG.
END PROCEDURE.

PROCEDURE GetLastError EXTERNAL "kernel32":U:
    DEFINE RETURN PARAMETER dwMessageID AS LONG.
END PROCEDURE.

PROCEDURE GetCurrentProcessId EXTERNAL "KERNEL32.DLL":
    DEFINE RETURN PARAMETER viFcDaemonProcessId AS LONG.
END PROCEDURE.

PROCEDURE WaitForSingleObject EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER hObject     AS LONG.
    DEFINE INPUT  PARAMETER dwTimeout   AS LONG.
    DEFINE RETURN PARAMETER ReturnValue AS LONG.
END PROCEDURE.

PROCEDURE TerminateProcess EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER hProcess AS LONG.
    DEFINE INPUT  PARAMETER uExitCode  AS UNSIGNED-SHORT.
    DEFINE RETURN PARAMETER bResult AS LONG.
END PROCEDURE.

PROCEDURE GetProcessId EXTERNAL "kernel32":U:
    DEFINE INPUT  PARAMETER hObject     AS LONG.
    DEFINE RETURN PARAMETER ProcessId   AS LONG.
END PROCEDURE.

PROCEDURE ShellExecuteEx EXTERNAL "shell32.dll":U:     
    DEFINE INPUT  PARAMETER plStruct       AS LONG      NO-UNDO.    
    DEFINE RETURN PARAMETER plInstance     AS LONG      NO-UNDO.
END PROCEDURE. 

PROCEDURE ShellExecuteA EXTERNAL "shell32.dll":U:
    /* Handle to parent window */       
    DEFINE INPUT PARAMETER plHWND       AS LONG      NO-UNDO.
    /* Operation to perform: open, print */
    DEFINE INPUT PARAMETER pcOperation  AS CHARACTER NO-UNDO.
    /* Document or executable name */
    DEFINE INPUT PARAMETER pcFile       AS CHARACTER NO-UNDO.
    /* Command line parameters to executable in File */
    DEFINE INPUT PARAMETER pcParameters AS CHARACTER NO-UNDO.
    /* Default directory */
    DEFINE INPUT PARAMETER pcDirectory  AS CHARACTER NO-UNDO.
    /* whether shown when opened: 
       0 hidden, 1 normal, minimized 2, maximized 3, 
       0 if File is a document */
    DEFINE INPUT PARAMETER plShowCmd    AS LONG      NO-UNDO.
    /* Return Code: less than or equal to 32 */
    DEFINE RETURN PARAMETER plInstance  AS LONG      NO-UNDO.