win32::api 關(guān)閉、啟動(dòng)windows進(jìn)程

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. }

復(fù)制代碼

在網(wǎng)上找了找，發(fā)現(xiàn)這個(gè)關(guān)閉進(jìn)程是可以的，已經(jīng)測試過，但是如何啟動(dòng)一個(gè)程序的進(jìn)程，小弟就不會(huì)了，CreateProcess()這個(gè)函數(shù)好像是可以做到，但是我實(shí)在不會(huì)win32 api,還請大師兄們幫幫忙。