[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Modifications needed to use windows.i on 64-bit

Status
Not open for further replies.
J

Jeff Ledbetter

Guest
We don't use the "Jurjen Files", but this is the type of thing that you need to do: PROCEDURE CreateProcessA EXTERNAL "kernel32.dll": &IF PROVERSION LT "11.3" &THEN DEFINE INPUT PARAMETER lpApplicationName AS LONG. DEFINE INPUT PARAMETER lpCommandline AS CHAR. 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. &ELSE &IF {&PROCESS-ARCHITECTURE} = 64 &THEN DEFINE INPUT PARAMETER lpApplicationName AS INT64. DEFINE INPUT PARAMETER lpCommandline AS CHAR. DEFINE INPUT PARAMETER lpProcessAttributes AS INT64. DEFINE INPUT PARAMETER lpThreadAttributes AS INT64. DEFINE INPUT PARAMETER bInheritHandles AS INT64. DEFINE INPUT PARAMETER dCreationFlags AS INT64. DEFINE INPUT PARAMETER lpEnvironment AS INT64. DEFINE INPUT PARAMETER lpCurrentDirectory AS INT64. DEFINE INPUT PARAMETER lpStartupInfo AS INT64. DEFINE INPUT PARAMETER lpProcessInformation AS INT64. DEFINE RETURN PARAMETER bResult AS INT64. &ELSE DEFINE INPUT PARAMETER lpApplicationName AS LONG. DEFINE INPUT PARAMETER lpCommandline AS CHAR. 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. &ENDIF &ENDIF END PROCEDURE.

Continue reading...
 
Status
Not open for further replies.
Top