PureBoard

Verfasst: **08.04.2007 12:15**

Ich bin gerade dabei, eine Art Task-Manager zu bauen.

Hab mir dazu ein Stück Code besorgt, der die Processe von Windows ausliest:

Code: Alles auswählen

Procedure GetProcessList9x() 
  maxproc=0
  If OpenLibrary(0, "Kernel32.dll") 
    
    CreateToolhelpSnapshot = IsFunction(0, "CreateToolhelp32Snapshot") 
    ProcessFirst           = IsFunction(0, "Process32First") 
    ProcessNext            = IsFunction(0, "Process32Next") 
    
    If CreateToolhelpSnapshot And ProcessFirst And ProcessNext ; Ensure than all the functions are found 
      
      Process.PROCESSENTRY32\dwSize = SizeOf(PROCESSENTRY32) 
      
      Snapshot = CallFunctionFast(CreateToolhelpSnapshot, #TH32CS_SNAPPROCESS, 0) 
      If Snapshot 
        
        ProcessFound = CallFunctionFast(ProcessFirst, Snapshot, Process) 
        While ProcessFound 
          AddGadgetItem(#ProcList, -1, PeekS(@Process\szExeFile))
          ProcessFound = CallFunctionFast(ProcessNext, Snapshot, Process) 
          Delay(10)
        Wend 
      EndIf 
      
      CloseHandle_(Snapshot) 
    EndIf 
    
    CloseLibrary(0) 
  EndIf 
  
EndProcedure

Nun habe ich eine frage: Wie kann ich den 'task-beenden'-Button damit realisieren? Hab verscheidene Möglichkeiten mit SendMessage_() und #WM_Quit versucht, aber nix funzt. Die Processe werden im moment einfach in nur ein listviewgadget aufgelistet.

Blicke das mit den ID's nicht ganz, welche muss ich da genau verwenden?

Verfasst: **08.04.2007 14:48**

In der PBOSL Process Lib gibt es einige Befehle dafuer, den Source
kannst du dir ja auf 3.3 zurecht legen.

PureBoard

Process beenden, auch mit gewalt

Process beenden, auch mit gewalt