Недавно добавленные исходники

•  3D Designer  134

•  Sik Screen Capture  109

•  Patch Maker  92

•  Айболит (remote control)  113

•  ListBox Drag & Drop  85

•  Доска для игры Реверси  1 558

•  Графические эффекты  100

•  Рисование по маске  76

•  Перетаскивание изображений  79

•  Canvas Drawing  82

•  Рисование Луны  152

•  Поворот изображения  65

•  Рисование стержней  56

•  Paint on Shape  52

•  Генератор кроссвордов  60

•  Головоломка Paletto  75

•  Теорема Монжа об окружностях  113

•  Пазл Numbrix  56

•  Заборы и коммивояжеры  87

•  Игра HIP  66

•  Игра Go (Го)  51

•  Симулятор лифта  55

•  Программа укладки плитки  56

•  Генератор лабиринта  97

•  Проверка числового ввода  45

•  HEX View  101

•  Физический маятник  102

•  Задача коммивояжера  129

•  Автомобильная пробка  52

•  Квадратные сетки из слов  46

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Перечислить процессы и завершить их



Оформил: DeeCo

{ 
  With the following routines it ist simply easy to kill a running process. 
  First build a form with a TListview with 3 columns and a TButton 
  to refresh the running processes. 
  Attach the Refreshclick-procedure to the TButton and the 
  ListViewDblClick-procedure with the TListview 
  The TListview shows the processes. 
  With a Doubleclick on one of the processnames you can kill this running process. 
  Don't forget to include TLHelp32 into your uses-clause! 

  Mit der nachfolgend aufgefuhrten Routinen konnen Sie die in einer 
  Windowssitzung laufenden Prozesse aufzeigen und bei Bedarf auch 
  entfernen. Hierfur benotigen Sie ein Formobject, ein ListViewobject und zu- 
  mindest ein ButtonObject. Verknupfen Sie das Buttonobject mit dem BtnRefreshClick 
  damit gleich beim Start des Programms alle Prozesse angezeigt werden. 
  Zum loschen eines Prozesses mussen Sie eine Verknupfung zwischen DblClick 
  des Listviewobject mit der Procedure ListviewDblClick. 
  Wie aus den beigefugten Routinen ersichtlich, kann auch ein einzelner Prozess 
  gesucht und terminiert werden. Die hierzu erforderlichen Schritte konnen aus 
  der Refreshroutine entnommen werden. 
  Wichtig ist die Einbindung der Unit TlHelp32 ! 
}

 interface

 uses
  {...,}TLHelp32 {important !}

 // Global Variables, Globale Variablen 

var
   aSnapshotHandle: THandle;
   aProcessEntry32: TProcessEntry32;

    implementation

 procedure TForm1.BtnRefreshClick(Sender: TObject);
 var
   i: Integer;
   bContinue: BOOL;
   NewItem: TListItem;
 begin
   ListView1.Items.Clear;
   aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
   bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
   while Integer(bContinue) <> 0 do
   begin
     NewItem := ListView1.Items.Add;
     NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
     NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
     NewItem.subItems.Add(aProcessEntry32.szExeFile);
     bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
   end;
   CloseHandle(aSnapshotHandle);
 end;


 procedure TForm1.ListView1DblClick(Sender: TObject);
 var
   Ret: BOOL;
   PrID: Integer; // processidentifier 
  Ph: THandle;   // processhandle 
begin
   with ListView1 do
   begin
     if MessageDlg('Do you want to Terminate "' + ItemFocused.Caption + '"?' + ^J +
                   'It''s possible the system becames instable or out of' + ^J +
                   'control......',
         mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        PrID := StrToInt('$' + ItemFocused.SubItems[0]);
        Ph := OpenProcess(1, BOOL(0), PrID);
        Ret := TerminateProcess(Ph, 0);
        if Integer(Ret) = 0 then
          MessageDlg('Cannot terminate "' + ItemFocused.Caption + '"',
                      mtInformation, [mbOK], 0)
        else
          ItemFocused.Delete;
      end;
    end;
 end;


 procedure TForm1.FormCreate(Sender: TObject);
 begin
   { 
    ListView1.Columns.Add; 
    ListView1.Columns.Add; 
    ListView1.Columns.Add; 
    ListView1.ViewStyle := vsReport; 
  }
   BtnRefresh.Click;
 end;

 {Only Win95/Win98/ME}







Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter