Узнать работает ли процесс.

[subsonic]

как узнать запущена-ли программа?

[Баламут]

Надеюсь я правильно все понял, раз в заголовке фигурировало слово "процессы"...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
TProcessEntry32 = packed record
  dwSize:              DWORD;
  cntUsage:            DWORD;
  th32ProcessID:       DWORD;
  th32DefaultHeapID:   DWORD;
  th32ModuleID:        DWORD;
  cntThreads:          DWORD;
  th32ParentProcessID: DWORD;
  pcPriClassBase:      LongInt;
  dwFlags:             DWORD;
  szExeFile: array[0..MAX_PATH - 1] of WideChar;
end;

TCreateToolHelp32SnapShot = function(dwFlag, th32ProcessID: DWORD): THandle; stdcall;

TProcess32First = function(hSnapshot: THandle; var lppe: TProcessEntry32): BOOL; stdcall;

TProcess32Next = function(hSnapshot: THandle; var lppe: TProcessEntry32): BOOL; stdcall;



type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  hKernel: THandle;
  CreateToolHelp32SnapShot: TCreateToolHelp32SnapShot;
  Process32First: TProcess32First;
  Process32Next: TProcess32Next;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hKernel := LoadLibrary('kernel32.dll');
@CreateToolHelp32Snapshot := GetProcAddress(hKernel, 'CreateToolhelp32Snapshot');
@Process32First := GetProcAddress(hKernel, 'Process32FirstW');
@Process32Next := GetProcAddress(hKernel, 'Process32NextW');

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ProcessEntry: TProcessEntry32;
  hProcessSnap: THandle;
begin
FillChar(ProcessEntry, SizeOf(TProcessEntry32), #0);
ProcessEntry.dwSize := SizeOf(TProcessEntry32);
hProcessSnap := CreateToolHelp32Snapshot($2, 0);

if not Process32First(hProcessSnap, ProcessEntry) then Exit;
repeat
Memo1.Lines.Add(string(ProcessEntry.szExeFile));
until not Process32Next(hProcessSnap, ProcessEntry);
end;

end.

[subsonic]

Короче, программа должна смотреть, запущена-ли прога?
если нет, то запускать.

[Баламут]

Ну так посмотри исходник-то! Зря я его выкладывал что ли?

[Terran]

Это конечно не по процессам, но тоже неплохой вариант.(если заголовок программы остаётся неизменным)

Uses 
    ShellApi, ...

procedure TForm1.Timer1Timer(Sender: TObject);
Var
H:HWND;
Begin
H:=FindWindow(Nil, 'Заголовок программы');
If H<>0 Then
Exit;
ShellExecute(Application.Handle, 'Open', 'C:\1.exe' ,Nil, Nil, SW_SHOWDEFAULT);
End;

[rpy3uH]

есть другой вариант: если файл экзешника открывается с полным доступом, значит он не занят, следовательно программа не запущена. Отсюда этот код:

procedure RunIfNotPresent(FN:String);
var
  _H:THandle;
begin
  _H:=CreateFile(pchar(FN),GENERIC_READ+GENERIC_WRITE,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
  if _H<>INVALID_HANDLE_VALUE then
   begin
    CloseHandle(_H);
    WinExec(pchar(FN),SW_SHOWNORMAL);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
  RunIfNotPresent('F:\1.exe');
end;

[cowboy]

Помогите пожалуста немного разобраться с процессами...
БУдет несколько вопросов... Вот процедура небольшая которая помогает получить список процессов, и записать их в стринглист..

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;

Вопросы:
1.EnumProcesses,EnumProcesses-что это за функции?

[Stilet]

EnumProcesses,EnumProcesses-что это за функции?

Функции которые прописаны в том модуле откуда ты код выдернул, или в связанных с ним модулях.

Де ты вообще этот код достал?

[Пепел Феникса]

uses TLHELP32;

---------------------------

function CheckByEXEName(EXEName:string):boolean; 
var
 Co:BOOL;
 FS:THandle;
 FP:TProcessEntry32;
begin
 FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 FP.dwSize := Sizeof(FP);
 Co:=Process32First(FS,FP);
 Result:=false;
 while (integer(Co)<>0)and(Result=false) do
  begin
   if ANSIUpperCase(FP.szExeFile)=ANSIUpperCase(EXEName) then Result:=true;
   Co:=Process32Next(FS,FP);
  end;
 CloseHandle(FS);
end;

если я правильно понял твой вопрос, и не мучайся.
кстати поиск тоже не отменяли

[uberchel]

Вот! Держи...

Не забуть добавить модуль в uses TLHelp32;

function IsRunning(sName: string): boolean;
var
  han: THandle;
  ProcStruct: PROCESSENTRY32;
  sID: string;
begin
  Result := false;
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then
    exit;
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then
  begin
  repeat
  sID := ExtractFileName(ProcStruct.szExeFile);
  if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
  begin
  Result := true;
  Break;
  end;
  until not Process32Next(han, ProcStruct);
  end;
  CloseHandle(han);
end;

Применение:

if IsRunning('delphi32.exe') = true then
ShowMessage('Делфи запущена') else ShowMessage('Делфи не запущена');

Помог? если да, то нажмите на весы с лева =)