[delphi_begin]

Всем привет! Помогите, коли можете!

Есть программа, которая сворачивается в трей. Использую компонент CoolTrayIcon.
Решил добавить запрет запуска копии приложения, да так, чтобы при попытке запуска, появлялась уже запущенная копия из трея.

Для этого написал вот такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var h:THandle; ........   h:=FindWindow('TForm1', 'Пример');    if h<>0 then begin     ShowWindow(h, SW_SHOWNA);   SetForegroundWindow(h);  end  else   begin     Application.Initialize; и т.д.   end;

Админ: очередной бан за несоблюдение правил форума по оформлению кода.

В результате, при повторном запуске форма появляется, но...
1) Не появляется на панели задач
2) Отображается без главного меню и кнопок (закрыть, развернуть, свернуть), т.е. без всей верхней части.


Вопрос, как решить такую проблему? Спасибо

[lmikle]

Я делал так.
В файле проекта:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function AllowSetForegroundWindow(dwProcessId: DWORD): BOOL; stdcall; external 'user32.dll';   function CanStart : Boolean; var   hMutex : THandle; begin   Result := True;     WndMessage := RegisterWindowMessage(PChar(GetMessageName));     hMutex := CreateMutex(Nil, True, PChar(GetMutexName));   If hMutex<>0 Then     If GetLastError=ERROR_ALREADY_EXISTS Then       Begin         AllowSetForegroundWindow(DWORD(-1));         PostMessage(HWND_BROADCAST,WndMessage,0,0);         Result := False;       End; end;   begin   If CanStart Then     Begin       Application.Initialize;       Application.Title := 'Visual Reminder';       Application.CreateForm(TMainForm, MainForm);       Application.HookMainWindow(MainForm.HookMessageProc);       Application.Run;     End; end.

В главной форме:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type   TMainForm = class TForm   ..     function HookMessageProc(var Message : TMessage) : Boolean;   end;   var   MainForm: TMainForm;   WndMessage : Cardinal;   function TMainForm.HookMessageProc(var Message: TMessage): Boolean; begin   Result := False;   If Message.Msg = WndMessage Then     Begin       TrayIcon.ShowMainForm;       Application.BringToFront;       SetForegroundWindow(Self.Handle);       Result := True;     End; end;

Надеюсь, ничего не забыл...