Anzeigefenster  'Prozesslister' (Aktivieren)
Anzeige-Liste   (ID='ProcList')
Anzeige-Element  Button: 'Liste aktualisieren' (ID='Refresh')
Anzeige-Element  Button: 'Prozess beenden' (ID='Kill')
 
Aufruf  Refresh
 
Warte  endlos...
 
::  Anzeige_Element(Refresh)_Klick
::  Refresh

  ***  Prozessliste aktualisieren

  Anzeige-Liste   (ID='ProcList', löschen)

  ***  ProzessID-Liste ermitteln

  Setze  in [ProzessListe]:  '[Prozess.Liste]'
  Setze  in [ProzessListe]:  '[Prozess.Liste s*]'
  Schleife Ab   ([ProcNr]  von 1  bis 9999)
    Bearbeite  '[ProzessListe]' in [ProcID] (Trennzeichen ',', Teilstück Nr. [ProcNr])
    ***  EXE des Prozesses ermitteln
    Setze  in [ProcEXE$]:  '[Prozess.EXE$ [ProcID]]' (Platzhalter ersetzen)
 

    ***  kein weiterer Prozess

    Beende  Schleife, wenn ("[ProcEXE$]" = "")
 
    Anzeige-Liste  '[ProcID]: [ProcEXE$], Threads: [Prozess.Threads [ProcID]], Priorität: [Prozess.Priorität [ProcID]]' (ID='ProcList')
  Schleife Bis
Zurück
 
::  Anzeige_Element(Kill)_Klick

  ***  Angewählten Prozess beenden

  Bearbeite  '[.Element(ProcList).Text]' in [ProcID] (Trennzeichen ':', Linker Teil)
  Wenn  Wahr: '[ProcID]>0'
    Setze  in [Prozess.Beenden [ProcID]]:  ''
    Aufruf  Refresh
  Ende Wenn
Zurück

**cX4024EF DD650ES214 1CMzkJMAkJ IFByb3plc3 NsaXN0ZXIJ Qw0KNTIJMA

kJSVByb2NM aXN0CVgxCV kxCVctMQlI LTEyDQozOA kwCQkgTGlz dGUgYWt0dW

FsaXNpZXJl bglJUmVmcm VzaAlYMQlZ LTEwCVczMA 0KMzgJMAkJ IFByb3plc3

MgYmVlbmRl bglJS2lsbA lYLTMyCVkt MTAJVzMwDQ owCTAJDQo0 NAkwCQkgUm

VmcmVzaA0K MAkwCQ0KMz EJMAkJRQ0K MAkwCQ0KMT kJMAkJIEFu emVpZ2VfRW

xlbWVudChS ZWZyZXNoKV 9LbGljaw0K MTkJMAkJIF JlZnJlc2gN CjEJMAkJIF

Byb3plc3Ns aXN0ZSBha3 R1YWxpc2ll cmVuDQo1Mg kwCQlJUHJv Y0xpc3QJTA

0KMQkwCQkg UHJvemVzc0 lELUxpc3Rl IGVybWl0dG Vsbg0KMjIJ MAkJPVByb3

plc3NMaXN0 ZQkgW1Byb3 plc3MuTGlz dGVdDQoyMg kxCQk9UHJv emVzc0xpc3

RlCSBbUHJv emVzcy5MaX N0ZSBzKl0N CjMzCTAJCV pQcm9jTnIJ UzEJRTk5OT

kNCjcJMAkJ PVByb2NJRA kgW1Byb3pl c3NMaXN0ZV 0JVCwJVQlO W1Byb2NOcl

0NCjEJMAkJ IEVYRSBkZX MgUHJvemVz c2VzIGVybW l0dGVsbg0K MjIJMAkJPV

Byb2NFWEUk CSBbUHJvem Vzcy5FWEUk IFtQcm9jSU RdXQlFDQow CTAJDQoxCT

AJCSBrZWlu IHdlaXRlcm VyIFByb3pl c3MNCjUJMA kJQigiW1By b2NFWEUkXS

IgPSAiIikJ Uw0KMAkwCQ 0KNTIJMAkJ IFtQcm9jSU RdOiBbUHJv Y0VYRSRdLC

BUaHJlYWRz OiBbUHJvem Vzcy5UaHJl YWRzIFtQcm 9jSURdXSwg UHJpb3JpdO

R0OiBbUHJv emVzcy5Qcm lvcml05HQg W1Byb2NJRF 1dCUlQcm9j TGlzdA0KMz

QJMAkNCjQ1 CTAJDQowCT AJDQoxOQkw CQkgQW56ZW lnZV9FbGVt ZW50KEtpbG

wpX0tsaWNr DQoxCTAJCS BBbmdld+Ro bHRlbiBQcm 96ZXNzIGJl ZW5kZW4NCj

cJMAkJPVBy b2NJRAkgWy 5FbGVtZW50 KFByb2NMaX N0KS5UZXh0 XQlUOglMDQ

oyOQkwCQkg W1Byb2NJRF 0+MA0KMjIJ MAkJPVByb3 plc3MuQmVl bmRlbiBbUH

JvY0lEXQ0K NDQJMAkJIF JlZnJlc2gN CjE4CTAJDQ o0NQkwCQ0K =*