защита от повторного открытия программы

[ВалекFCRK]

например я главной форме програмки сделал visible:=false . Пользователь хочет ее открыть и запускает програмку ещё раз. Так вот как сделать так, чтобы програмка не второй раз открывалась и была запущена 2 раза, а просто visible менялось на true.

[Стелс]

зачем такой геморрой ?? программа или видна или нет вот и все !!!!
или это опять студентам дали задачу ? тогда вам в раздел "В помощь студентам"
ищите на форуме такой вопрос уже был совсем недавно

[Аватар]

зачем такой геморрой ?? программа или видна или нет вот и все !!!!

Нормальная ситуация, очень часто нужна защита от повторного запуска проги. Можно посмотреть http://programmersforum.ru/showthread.php?t=55722 да и другие темы подобные есть

[FaTaL]

В dpr пишешь функцию

Var HM :THandle;
function Check: boolean;
begin
  HM:=OpenMutex(MUTEX_ALL_ACCESS, false, 'ProgName');
  Result:=(HM<>0);
  if HM=0 then HM:=CreateMutex(nil, false, 'ProgName');
end;

а потом прочто проверяешь
if Check then Exit;

[Человек_Борща]

я с этим так справляюсь..

function CheckMutex(AppCaption: string): Boolean;
var
  HM: Thandle;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, PAnsiChar(AppCaption));
  Result := (HM <> 0);
  if HM = 0 then
    CreateMutex(nil, false, PAnsiChar(AppCaption));
end;

If CheckMutex('THIS IS SPARTA!!!!1111') then
begin
MessageBox(0,PChar('ПШЁЛ НА ЙУХ... :d'),PChar('ERROR!!!'),MB_OK OR MB_ICONERROR);
end;

[[MoNAMur]]

еще один вариант решения проблемы

Const
 MemFileSize = 1024;
 MemFileName = 'one_instance_myprog';
Var
 MemHnd : HWND;

begin

//see more  http://msdn.microsoft.com/en-us/library/aa366537(v=vs.85).aspx
//
 MemHnd := CreateFileMapping(HWND($FFFFFFFF),nil,
                              PAGE_READWRITE,0,
                              MemFileSize,
                              MemFileName);
  if (GetLastError <> ERROR_ALREADY_EXISTS) then
  begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.Title := 'моя прога';
      Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  end
  else MessageDlg('Ололо, прога уже запущена', mtInformation, [mbOk], 0);
end.

[Человек_Борща]

я использую ещё это:

function FirstHinstanceRunning(RunMode: Integer = 0): boolean;
const
  MemFileSize = 127;
var
  MemHnd: HWND;
  MemFileName: string;
  lpBaseAddress: ^HWND;
  FirstAppHandle: HWND;
begin
  Result := False;
  MemFileName := Application.ExeName;
  case RunMode of
    0:
      MemFileName := AnsiReplaceText(MemFileName, '\', '/');
    1:
      MemFileName := ExtractFileName(MemFileName);
  else
    Exit;
  end;
  MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil,
    PAGE_READWRITE, 0, MemFileSize, PChar(MemFileName));
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    if MemHnd <> 0 then
    begin
      lpBaseAddress := MapViewOfFile(MemHnd, FILE_MAP_WRITE, 0, 0, 0);
      if lpBaseAddress <> nil then
        lpBaseAddress^ := Application.Handle;
    end;
  end
  else
  begin
    Result := True;
    if MemHnd <> 0 then
    begin
      lpBaseAddress := MapViewOfFile(MemHnd, FILE_MAP_READ, 0, 0, 0);
      if lpBaseAddress <> nil then
      begin
        FirstAppHandle := lpBaseAddress^;
        ShowWindow(FirstAppHandle, SW_RESTORE);
        SetForegroundWindow(FirstAppHandle);
      end;
    end;
  end;
  if lpBaseAddress <> nil then
    UnMapViewOfFile(lpBaseAddress);
end;

begin
  Application.Initialize;
  SetThreadLocale(1049);
  CheckMutex(Mutex_name);


  //Не разрешён запуск более 1 копии
  if not AllowedMultiEXE then
  begin
    if FirstHinstanceRunning(0) then
    begin
      Exit;
    end;
  end;

[mihali4]

Мой неоднократно проверенный способ.

uses SyncObjs;
...
CheckEvent: TEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckEvent:= TEvent.Create( nil, false, true, 'MYPROJECT_CHECKEXIST' );
If CheckEvent.WaitFor(10)<>wrSignaled then
begin
ShowMessage('Сколько можно запускать одну и ту же программу ?');
Application.Terminate;
end else
...

Закрыто. Неоднократно обсуждалось.
ТС получает большую красную карточку за несоблюдение пункта 0 правил раздела.