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

Posted by Chas under Delphi, Пост-обзор

Допустим у меня запущена программа, свойство формы программы visible:=False . Ее не видно. Что прописать и где, чтобы если например пользователь форму не видит а захочет ее увидеть и запустит программу повторно, программа не запускалась повторно, а просто visible:=True; И Возможно ли вобще это сделать.

Terran
Первое, что пришло в голову:

Procedure OnlyOne;

Begin

If OpenMutex(MUTEX_ALL_ACCESS,False,'Form1') <> 0 Then

Begin

CreateMutex(Nil,True,'Form2');

Sleep(300);

Halt;

End

Else

Begin

CreateMutex(Nil,True,'Form1');

End;

End;

Procedure TForm1.FormCreate(Sender: TObject);

Begin

Application.ShowMainForm:=False;

OnlyOne;

End;
Procedure TForm1.Timer1Timer(Sender: TObject);

Begin

If OpenMutex(MUTEX_ALL_ACCESS,False,'Form2') <> 0 Then

Begin

Form1.Visible:=True;

End;

End;

У таймера интервал 200. Если так не устроит, что можно подумать над оптимизацией.

JUDAS
фрагмент с рабочего проекта

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 GetExeRunCount(const FileName: string):integer;

var i     : Integer;

    fList : TstringList;

    s0,S1 : string;

begin

  result:=0;

  s0:=ExtractFileName(FileName);

  fList := TStringList.Create;

  try

    GetProcessList(fList);

    for i := 0 to fList.Count - 1 do

    begin

     s1:=ExtractFileName(Trim(fList.strings));

     inc(result, byte(s1=s0));

    end;

   finally

    fList.Free;

  end;

end;
begin

Application.Initialize;

  if GetExeRunCount(Application.ExeName, false)>1 then

   begin

    MessageBox(0,'Процесс уже запущен ','ХХХХХХХХХХ',0);

    Application.Terminate;

    exit;

   end;

...

...

...

Application.run;

тема на форуме

Похожие статьи

• SitemapXML (Qt)
• Посылаем нажатия клавиш в другую программу
• Отправка смс через Skype.
• COM порт опросить радиомодем
• Музыка программера
• Программа приложение для skype
• Синтезатор на Delphi
• Скрытая командная строка
• Как проверить установлена ли программа на компьютере?
• Простенький парсер псевдо-HTML на Delphi