EXE

[lesha_firs]

Как прописать в delphi что бы когда программа запущена второй раз запустить было нельзя и писал ошибку "программа запущена"

[Баламут]

Я бы с атомами поигрался. Например повесь такой код на onCreate формы

var
   atom: integer;
..............
  if GlobalFindAtom('This my SUPER PROGA!!!!!') = 0
  then atom := GlobalAddAtom('This my SUPER PROGA!!!!!')
  else Halt;

Но тут нужно отдавать себе отчет в том, что атом не уничтожится сам по выходу из программы. Его нужно уничтожить самостоятельно через GlobalDeleteAtom(atom). Если этого не сделать, то прога просто не запустится второй раз после ее закрытия. Предлагаю самому подумать, как здесь лучше сделать.

[FaTaL]

Вот хороший код

{$R *.res}
Var HM :THandle;

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

begin
    // Проверка на запуск второй копии программы
    If Check then
    exit;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

[SERG1980]

в файле *.dpr

.......
var
  hwnd: THandle;
begin
  hwnd := FindWindow('TMainForm', 'Моя прога');
  if hwnd = 0 then
  begin
   Application.Initialize;
   Application.Title := 'Моя прога';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TEditForm, EditForm);
  Application.CreateForm(TPassEditForm, PassEditForm);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TEditFoneForm, EditFoneForm);
  Application.CreateForm(TEnterPassForm, EnterPassForm);
  Application.Run;
  end; //else.....сообщение

[lesha_firs]

Чето не чего не работает

[SERG1980]

Тогда используйте сторонние компоненты например LMD там есть такой
компонент

[Terran]

Procedure OnlyOne;
Var
HMutex: Integer;
Begin
HMutex:=CreateMutex(Nil, True, 'pro');
If GetLastError <> 0 Then
Begin
ShowMessage('Программа уже запущена!');
Halt;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
OnlyOne;
End;

Немного добавлю к тому что написал SERG1980. Компонент называется LMDOneInstance.

[lesha_firs]

Procedure OnlyOne;
Var
HMutex: Integer;
Begin
HMutex:=CreateMutex(Nil, True, 'pro');
If GetLastError <> 0 Then
Begin
ShowMessage('Программа уже запущена!');
Halt;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
OnlyOne;
End;

я делаю а он всеровно открывает заново проект

[Crivel]

Вы не хотите хоть какие-то усилия приложить чтобы программировать, вы хотите чтобы за вас всё сделали и разживали. В инете полно инфы об этом, вот:

http://www.google.com/search?q=%D0%B...ient=firefox-a
http://forum.ixbt.com/topic.cgi?id=40:682-2
http://narod.yandex.ru/cgi-bin/yandm...0=956889008&p=

Призываю модераторов закрыть эту тему, так-как этот уважаемый топик стартер будет засорять форум и тратить время других попусту.

p.s извиняюсь за флуд.

[lesha_firs]

да ошибку он выдает но приложение всеровно открывает
Я пешу form1.close;
он игнарирует

все зднлал

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateMutex(nil,false,'Project1.exe');
k := GetLastError();

if (k=ERROR_ALREADY_EXISTS)or(k=ERROR_ACCESS_DENIED) then
begin

 Application.Terminate;
 Exit;
end;

end;