win32::api 关闭、启动windows进程

lgq_101

1. #!/usr/bin/perl
   
2. 
   
3. use Win32::API;
   
4. use Win32::Process::List;
   
5. 
   
6. sub KillProcess {
   
7.     $pid = shift;
   
8.     $OpenProcess = new Win32::API("kernel32.dll","OpenProcess",[I,I,N],N);
   
9.     $PROCESS_ALL_ACCESS = 0x0001;
   
10.     $hProcess = $OpenProcess->Call($PROCESS_ALL_ACCESS,0,$pid);
    
11. 
    
12.     $TerminateProcess = new Win32::API( 'Kernel32.dll', 'TerminateProcess', [N,I], I );
    
13.     $kill = $TerminateProcess->Call($hProcess,1);
    
14. }
    
15. 
    
16. $P = Win32::Process::List->new();
    
17. %list = $P->GetProcesses();
    
18. foreach (keys %list){
    
19.     if($list{$_} ~~ "Runsrv.exe"){
    
20.         KillProcess($_);
    
21.     }
    
22. }

复制代码

在网上找了找，发现这个关闭进程是可以的，已经测试过，但是如何启动一个程序的进程，小弟就不会了，CreateProcess()这个函数好像是可以做到，但是我实在不会win32 api,还请大师兄们帮帮忙。