gitpan / win32-process-commandline Goto Github PK

Win32-Process-CommandLine version 0.01
======================================

This module tries to get command line parameters that is passed to when starting
a program. In windows, there is no existing tool for finding out the process's 
parameters. From task manager, only process names are displayed. So starting a 
program with different parameters several times, it's hard to tell a process 
with what options. This module requires a C compiler.

e.g. from windows Start->Run, type
notepad c:\boot.ini
2988 is its process id.

	$pid = 2988;
	Win32::Process::CommandLine::GetPidCommandLine($pid, $str);

The program name and parameters will be returned to $str.
In windows 2003 server, value of $str is
	"C:\WINDOWS\system32\notepad.exe" c:\boot.ini

This module is a good example of how to write C subroutines to extend Perl's ability.
I have never done this before, so I encountered lots questions probably others will
have as well. My procedures and advices:
- Develop the C program and keep the calling interface as simple as possible
	. Try not to use Win32 data type that don't have corresponding Perl type.
	  Then you have to come up with type map file.

	. CommandLine.h only has calling interface
	  int GetPidCommandLine( int pid, char* cmdParameter);

	. CommandLine.c introduces some win32 knowledge:
	  - The win2k/win2003/winXP are using UTF16 internally and little endian.
	    Get familiar with wchar_t and its functions
		ASCII, single byte	    
		31    32    33    00
		---------------------
		1     2     3     \0

		MBCS
		31 00	32 00	33 00	00 00
		-----------------------------
		1 	2 	3 	\0

	  - Convert Unicode string to ANSI(multi-byte) string
	  	WideCharToMultiByte(CP_OEMCP, 0, wstr, -1, NULL, 0, NULL, NULL);

	  - Write debug log if _DEBUG is defined when compiling.
	  	hOut = CreateFile("_pidCmdLine.txt", GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 
	  	FILE_ATTRIBUTE_NORMAL, NULL);
	  	
	  	WriteFile (hOut, wstr, wcslen(wstr) * 2, &nOut, NULL)

	  - Compile to an win32 executable file
	  	cd exe
	  	cl CommandLine.c
	  	CommandLine.exe 2988	

- Use h2xs to generate module skeleton: h2xs -x -n Win32::Process::CommandLine CommandLine.h
	. copy 2 C header files to new folder
	. There're tons of details about Perl internal data types and xs usages, but I just 
	  use simple things.
	. Edit CommandLine.xs. h2xs doesn't do following things for you.
	  - copy essential C code from CommandLine.c, then paste it above 
	    MODULE = Win32::Process::CommandLine	PACKAGE = Win32::Process::CommandLine

	  - Add infer face declaration. OUTPUT section informs Perl which variables are updated 
	    after calling.
		int
		GetPidCommandLine(pid, cmdParameter)
			int pid
			char* cmdParameter
		OUTPUT:
			cmdParameter
- Add file names to MANIFEST that you want to distribute with package.

- Following instruction in INSTALLATION to compile and install
	A dll is built and install to Perl directory.
	This module uses win32 APIs, it will be fast to get information.

- Test
	nmake test		#run test.pl
	test_one_pid.pl		#ask for one PID 
	test_all_pid.pl		#try to print all process's parameters

- Pack for Distribution
	nmake dist	

INSTALLATION

To install this module type the following:

   perl Makefile.PL
   make
   make test
   make install

If you don't have a compiler and you have perl installed at C:\perl, there's a compiled version at 
http://blog.chinaunix.net/upfile/070815015110.rar

DEPENDENCIES

This module requires these other modules and libraries for testing:

  Win32::Process
  Win32::Process::Info

COPYRIGHT AND LICENCE

Copyright (C) 2007 by Jing Kang ([email protected])

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.