Запущена ли програма?

[RealSHELS]

Помогите вот это реализовать програмно:
if моя програма запущена then ничего не делать else запустить.

[N!ckeL]

Не проверял, но должно сработать:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Tlhelp32,
  SysUtils,
  Windows;

{$R *.res}

function ExistsProcess(exename:string): boolean;
const
  process_terminate=$0001;
var
  co:boolean;
  fs:thandle;
  fp:tprocessentry32;
  i:integer;
begin
  result:=false;
  fs:=createtoolhelp32snapshot(th32cs_snapprocess, 0);
  fp.dwSize:=sizeof(fp);
  co:=process32first(fs, fp);
  while integer(co)<>0 do
    begin
      if ((uppercase(extractfilename(fp.szExeFile)))=uppercase(exename)) or (uppercase(fp.szExeFile)=uppercase(exename)) then
        result:=true;
        co:=process32next(fs, fp);
    end;
  closehandle(fs);
end;

begin
if ExistsProcess(paramstr(0))=false then
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 end
 else
  exit;
end.

Но имя exe должно быть одним и тем же иначе не сработает..

[B_N]

http://programmersforum.ru/showthread.php?t=21585

[TaTT DoGG]

if Findwindow(nil, 'Caption твоей программы')<>0 then exit else ShellExecute();

[Черничный]

В uses модуль syncobjs

Var
CheckEvent: TEvent; 
Begin
CheckEvent: =TEvent.Create (nil, false, true, ‘Program’);
If CheckEvent.WaitFor (10) <> wrSignaled then
// программа запущенна ничего не делать
else
// программа не запущенна
End;