project BLF > class Win32Lib > method Dummy
Description
Dummy method for hosting the redirection definitions to the Win32 methods
Parameters
icWorkingDirectory | input | character | Working directory |
oiReturnStatus | output | integer | Return 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.