Hi



I�m tying to call the winapi  'CreateProcess' � but it doesn�t seems to work



can you tell me if im doing something wrong





Win32::API::Struct-> typedef( STARTUPINFO => qw{

DWORD cb;

LPTSTR lpReserved;

LPTSTR lpDesktop;

LPTSTR lpTitle;

DWORD dwX;

DWORD dwY;

DWORD dwXSize;

DWORD dwYSize;

DWORD dwXCountChars;

DWORD dwYCountChars;

DWORD dwFillAttribute;

DWORD dwFlags;

WORD wShowWindow;

WORD cbReserved2;

LPBYTE lpReserved2;

HANDLE hStdInput;

HANDLE hStdOutput;

HANDLE hStdError;

} );



Win32::API::Struct-> typedef( PROCESS_INFORMATION => qw{

HANDLE hProcess;

HANDLE hThread;

DWORD dwProcessId;

DWORD dwThreadId;

});





my $cmd = "c:\\WINDOWS\\notepad.exe";

my $dir = ".";





#### import an API that uses this structures



Win32::API-> Import( 'kernel32', 'BOOL CreateProcess(LPCTSTR
lpApplicationName, LPTSTR lpCommandLine, LPVOID lpProcessAttributes, LPVOID
lpThreadAttributes, BOOL bInheritHandles, DWORD dwCreationFlags, LPVOID
lpEnvironment, LPCTSTR lpCurrentDirectiry, LPSTARTUPINFO lpStartupInfo,
LPPROCESS_INFORMATION lpProcessInformation)');



my $si = Win32::API::Struct-> new( 'STARTUPINFO' );

my $pi = Win32::API::Struct-> new( 'PROCESS_INFORMATION' );



if(!defined($si) || !defined($pi)) {

    die "Can't import API CreateProcess: $!\n";

}



### call the function passing our structure object

CreateProcess(undef, $cmd, undef, undef, 0, 0, undef, $dir, $si, $pi);



print "CreateProcess Try1 : $pi-> {dwProcessId}, $pi->{dwThreadId}\n";













#(LPCTSTR lpApplicationName, LPTSTR lpCommandLine, LPVOID
lpProcessAttributes, LPVOID lpThreadAttributes, BOOL bInheritHandles, DWORD
dwCreationFlags, LPVOID lpEnvironment,

#LPCTSTR lpCurrentDirectiry, LPSTARTUPINFO lpStartupInfo,
LPPROCESS_INFORMATION lpProcessInformation)');







#### use NEW an API that uses this structures



my $CreateProcess = Win32::API-> new('kernel32', 'CreateProcess',
'PPPPNNPPPP' , 'N');

if(!defined($CreateProcess)) {

    die "Can't import API CreateProcess: $!\n";

}



my $rtn = $CreateProcess-> Call(undef, $cmd, undef, undef, 0, 0, undef, $dir,
$si, $pi);

print "rtn = $rtn\n";

print "CreateProcess Try2 : $pi-> {dwProcessId}, $pi->{dwThreadId}\n";