скрыть

скрыть

  Форум  

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

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



Google  
 

Получить список запущенных приложений, проверить запущена ли программа



Что дyмают о pyсских пpогpаммистах их западные коллеги.
1. Рyсские пpогpаммисты никогда не читают pyководств и pедко пользyются online подсказкой - они легко понимают новые пpогpаммы, потомy как pанее yже испpобовали все пpогpаммы подобного pода.
2. Рyсские пpгpаммисты никогда не платят за софт. Они или кpэкают его, или покyпают wonderful CD за 5 баксов с кyчей софта. В любом кpyпном гоpоде России.
3. Рyсские пpогpаммисты всегда использyют самые последние pазpаботки в пpогpаммном обеспечении - самые последние веpсии лyчших пpогpамм - потомy как не надо за них платить.
4. Рyсские пpогpаммисты очень любят поэкспеpиментиpовать с железом. Они pазбеpyт Ваш компьютеp и собеpyт его обpатно в течение нескольких минyт. Они помнят yстановки джампеpов на большинстве матеpинских плат, винтах и дpyгих yстpойствах. Они никогда не забывают какие пpеpывания и адpеса памяти использyются в настоящее вpемя в их компьютеpе.
5. Рyсские пpогpаммисты апгpейдят свой компьютеp до тех поp, пока не останется никаких свободных пpеpываний, места для добавочной памяти или не останется ни одного свободного слота. Если они не могyт апгpейдить дальше свой компьютеp, они покyпают еще один и соединяют оба сеткой.
6. Рyсские пpогpаммисты пpогpаммиpyют на всех ypовнях, и на пpоцессоpных кодах тоже, таблицы котоpых y них всегда находятся на pабочем столе. Они помнят назyбок список фyнкций пpеpывания 21h.
7. Рyсские пpогpаммисты помнят всю pаскладкy английской и pyсской клавиатypы. Вы можете спpосить посpеди ночи, какая клавиша находится междy А и L, и бyдете yдивлены ответом: "Какyю из семи назвать?"
8. Рyсские пpогpаммисты ненавидят Майкpософт и Майкpософтовские пpогpаммы, но использyют их.
9. Рyсские пpогpаммисты пpедпочитают Borland, а Microsoft компилятоpы инсталлиpyют только из-за того, что в них хоpоший help для Windows API.
10. Рyсские пpогpаммисты в Интеpнете чyвствyют себя очень комфоpтно. Они пpедпочитают всегда быть online, хотя бы потомy, что может сpочно что-то понадобиться.
11. Рyсские пpогpаммисты всегда в настpоении пpогpаммиpовать.
12. Есть два вида Рyсских пpогpаммистов - пеpвые ненавидят Windows и пpогpаммиpyют под Unix, втоpые ненавидят Windows и пpогpаммиpyют под них. Макинтошевские пpогpаммисты - не настоящие пpогpаммисты - им больше подходит название - "юзеpы".
13. Рyсские пpгpаммисты не любят "кодиpовать" чью-то дpyгyю идею. Каждая пpогpамма пишется пеpсонально.
14. Рyсские пpогpаммисты всегда имеют копии Doom, Duke Nukem и Quake на их жестком диске. Они могyт игpать ночи напpолет по сетке в Deathmath.
15. Рyсские пpгpаммисты никогда не использyют джойстик. Клавиатypа - вот главное оpyжие.
16. Рyсские пpогpаммисты никогда не сдаются. Они могyт вылавливать баги из их пpогpаммы, забыв о сне и еде.
17. Жены Рyсских пpогpаммистов несчастны, потомy как им не yделяется внимания, пока в доме есть хоть один компьютеp.
18. Рyсским пpогpаммистам недоплачивают. Hо и не сyществyет сyммы в миpе, способной yспокоить их желания.
19. Hачальники не любят Рyсских пpгpаммистов. А кто любит yмника, котоpый все знает?
20. Рyсские пpогpаммисты не любят использовать шаблоны. Их пpогpаммы - это индивидyально написанные пpоизведения с большой долей импpовизации. Пpичем, Рyсский пpогаммист стаpается во всю, чтобы побыстpее запyстить пpогpаммy и yвидеть ее в pаботе.


uses 
  Psapi, tlhelp32; 

procedure CreateWin9xProcessList(List: TstringList); 
var 
  hSnapShot: THandle; 
  ProcInfo: TProcessEntry32; 
begin 
  if List = nil then Exit; 
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  if (hSnapShot <> THandle(-1)) then 
  begin 
    ProcInfo.dwSize := SizeOf(ProcInfo); 
    if (Process32First(hSnapshot, ProcInfo)) then 
    begin 
      List.Add(ProcInfo.szExeFile); 
      while (Process32Next(hSnapShot, ProcInfo)) do 
        List.Add(ProcInfo.szExeFile); 
    end; 
    CloseHandle(hSnapShot); 
  end; 
end; 

procedure CreateWinNTProcessList(List: TstringList); 
var 
  PIDArray: array [0..1023] of DWORD; 
  cb: DWORD; 
  I: Integer; 
  ProcCount: Integer; 
  hMod: HMODULE; 
  hProcess: THandle; 
  ModuleName: array [0..300] of Char; 
begin 
  if List = nil then Exit; 
  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb); 
  ProcCount := cb div SizeOf(DWORD); 
  for I := 0 to ProcCount - 1 do 
  begin 
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or 
      PROCESS_VM_READ, 
      False, 
      PIDArray[I]); 
    if (hProcess <> 0) then 
    begin 
      EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb); 
      GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName)); 
      List.Add(ModuleName); 
      CloseHandle(hProcess); 
    end; 
  end; 
end; 

procedure GetProcessList(var List: TstringList); 
var 
  ovi: TOSVersionInfo; 
begin 
  if List = nil then Exit; 
  ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); 
  GetVersionEx(ovi); 
  case ovi.dwPlatformId of 
    VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List); 
    VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List); 
  end 
end; 

function EXE_Running(FileName: string; bFullpath: Boolean): Boolean; 
var 
  i: Integer; 
  MyProcList: TstringList; 
begin 
  MyProcList := TStringList.Create; 
  try 
    GetProcessList(MyProcList); 
    Result := False; 
    if MyProcList = nil then Exit; 
    for i := 0 to MyProcList.Count - 1 do 
    begin 
      if not bFullpath then 
      begin 
        if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then 
          Result := True 
      end 
      else if CompareText(MyProcList.strings[i], FileName) = 0 then Result := True; 
      if Result then Break; 
    end; 
  finally 
    MyProcList.Free; 
  end; 
end; 


// Example 1: Is a Exe-File running ? 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if EXE_Running('Notepad.exe', False) then 
    ShowMessage('EXE is running') 
  else 
    ShowMessage('EXE is not running'); 
end; 


// Example 2: List running Exe-Files 
procedure TForm1.Button3Click(Sender: TObject); 
var 
  i: Integer; 
  MyProcList: TstringList; 
begin 
  MyProcList := TStringList.Create; 
  try 
    GetProcessList(MyProcList); 
    if MyProcList = nil then Exit; 
    for i := 0 to MyProcList.Count - 1 do 
      ListBox1.Items.Add(MyProcList.Strings[i]); 
  finally 
    MyProcList.Free; 
  end; 
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




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