у меня программа скрывается от процессы на диспетчере задач как его обратно открыть

[Heneken87]

у меня программа скрывается от процессы на диспетчере задач как его обратно открыть с данными
что бы программа повторно не открывался ,открылся уже открытая форма

В project->View Sorce

if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Sleep(2000);
end;
CreateMutex(nil, True, 'REESTERSKOMLEKS2013');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Программа уже запущена!');
SetForegroundWindow(FindWindow('TSTART_FORM',nil));
Exit;
end;

Оно?

[alman12]

не тот, ошибку вылает

[Heneken87]

Сообщение от alman12

не тот, ошибку вылает

Хоть напишите какую)

[alman12]

[Heneken87]

Сообщение от alman12

В Uses добавить нужно Windows и Dialogs

Полный листинг:

program ViandTy;

uses
  Forms,
  Windows,
  Dialogs,
   STARTS in 'STARTS.pas' {START_FORM};
{$R *.res}
begin
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Sleep(2000);//Время на выгрузку пограммы если она есть
end;
CreateMutex(nil, True, 'REESTERSKOMLEKS2013');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Программа уже запущена!');
SetForegroundWindow(FindWindow('TSTART_FORM',nil));
Exit;
end;
  START_FORM.DisableProcessWindowsGhosting;
  Application.Initialize;
  ///Application.MainFormOnTaskbar := True;
  Application.CreateForm(TSTART_FORM, START_FORM);
  Application.Run;

end.

[FaTaL]

Сообщение от alman12

не тот, ошибку вылает

Совсем уже своей головой думать разучились.
Похоже не зря Репа -159

[alman12]

добавил я в uses windows ,dialogs

[Heneken87]

Сообщение от alman12

добавил я в uses windows ,dialogs

Молодец)

[alman12]

не вызывается ранее открытая окно только сообщения что
"Программа уже запущена! " и закрывается

[Heneken87]

Сообщение от alman12

не вызывается ранее открытая окно только сообщения что
"Программа уже запущена! " и закрывается

SetForegroundWindow(FindWindow('TST ART_FORM',nil)); ТУт вместо TSTART_FORM что написали? Свою форму? Или так и оставили?
SetForegroundWindow- Делает форму активной, если форма свернута логично наверное что перед тем как сделать ее активной не мешало бы её развернуть.... Хотя бы так....ShowWindow(FindWindow('TSTAR T_FORM',nil),SW_SHOWNORMAL);