Using VB6,Win32 Api, and XP

[vernlee]

Win32 api function calls always return with a result of 0. Any idea of what could be causing this?

Example:
lpResult = CreateProcess(strProgram, vbNullString, sa, sa, False, NORMAL_PRIORITY_CLASS, ByVal 0&, _
"", sinfo, pinfo)
LaunchResult = GetLastError

The result of this call is as follows:

lpResult = 0
LaunchResult = 0

Any idea of what's going on here?

 

[paulbent]

Since you don't show us how you are declaring the function or what's in any of the variables passed into it we can only take a wild guess! Try:

Declare Function CreateProcessA Lib "kernel32" (Byval _
lpApplicationName As Long, Byval lpCommandLine As String, Byval _
lpProcessAttributes As Long, Byval lpThreadAttributes As Long, _
Byval bInheritHandles As Long, Byval dwCreationFlags As Long, _
Byval lpEnvironment As Long, Byval lpCurrentDirectory As Long, _
lpStartupInfo As STARTUPINFO, lpProcessInformation As _
PROCESS_INFORMATION) As Long

lpResult = CreateProcess(0&, strProgram, 0&, 0&, 0&, _
NORMAL_PRIORITY_CLASS, 0&, 0&, sinfo, pinfo)

Sorry if that doesn't work but it was only a guess!

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[AndyWatt]

I thought API returned 0 if successful and <> 0 if not, unless this is one of those API calls that doesn't follow thre rule.

Andy
&quot;Logic is invincible because in order to combat logic it is necessary to use logic.&quot; -- Pierre Boutroux
&quot;A computer program does what you tell it to do, not what you want it to do.&quot; -- Greer's Third Law

 

[vb5prgrmr]

This is from the definition of createprocess in the help files...
[tt]
Return Values
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero.

To get extended error information, call GetLastError.

Good Luck

 

[vernlee]

Paul,

I had used a set of set of supplied pre defined declarations and assumed they were correct. Wrong!

The code segment you sent worked.

Much thanks to you.


Vern