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

[ВалекFCRK]

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

[Стелс]

при попытке запустить 2 й экземпляр ??

[ВалекFCRK]

Сообщение от Стелс

при попытке запустить 2 й экземпляр ??

да. Правильно поняли

[Стелс]

ну думаю что возможно только вот вопрос ЗАЧЕМ такой геморрой ???

[Стелс]

вот наковырял http://cf.pop3.ru/Project1.exe

[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. Если так не устроит, что можно подумать над оптимизацией.

[Serge_Bliznykov]

Terran +1

тема достаточно "избитая". Точно помню в том же "Delphi World" были различные варианты решения данной задачи.

ну, и как вариант могу посоветовать то, что используется у нас в рабочем проекте.
из JEDI (JVCL):
модуль JvVCLUtils
функция
function ActivatePrevInstance(const MainFormClass: ShortString;
const ATitle: string): Boolean;

использовать можно так:
в файле проекта (****.dpr) прямо после начального begin

    
if ActivatePrevInstance(TMainForm.ClassName, '') then Exit;

где TMainForm - класс главного окна...

[Стелс]

program Project1;

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

{$R *.res}


  begin
    Application.Initialize;
    Application.Title := 'Моя программа';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  
end.

юнит

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var AppHandle: THandle;
begin
if Form1.Visible =True
   then
         begin
               Form1.Visible :=False;
              CreateSemaphore(nil,1,1,'SIPOM - Моя программа');
  if GetLastError = ERROR_ALREADY_EXISTS
    then
        begin 
             AppHandle:= FindWindow(nil,'Моя программа');
             ShowMessage('Сейчас будет видно');
            if not IsWindowVisible(AppHandle)
            then
                begin
                     ShowWindow(AppHandle,SW_SHOWMAXIMIZED);
                    Abort;
                    SetForegroundWindow(AppHandle);


  end;
   end
   ;end;
       end;

end.

ну почти тоже что и у Terran

[Стелс]

а есчо можно создать файл ini с переменной булевского типа и при первой загрузке переписывать истину на ложь а при закрытии возвращать в исходное состояние а перед всем этим проверять состояние переменной и в зависимости от её состояния принимать решение при этом не забывать ExitProcess(0);

недостаток такого подхода - если прога зависнет и ее придется убить то конечно все будет через "ж"

[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[i]));
     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;