mam taki kawałek kodu ktory zapobiega powtornemu uruchomieniu programu
tylko wyrzuca go z tray'a i czyni aktywnym.
Jesli minimalizujemy program, chowa sie on do tray'a i tu jest OK,
ale jesli chcemy drugi raz zminimalizowac program to
ikona minimalizacji nie dziala, a klikajac prawym przyciskiem na belce
mozliwosc minimalizuj jest nieaktywna, ale mozna przywrocic program.
Czyli Windows musli ze program jest caly czas zminimalizowany.
CO ROBIE ZLE
POMOCY
program Test;
uses
Forms,
Windows,
SysUtils,
Controls,
aaa in 'aaa.pas' {Form1};
{$R *.RES}
var
handle : THandle;
begin
Application.Title := '';
handle := CreateMutex(nil, false, 'unikaty');
if (handle <> 0) and (GetLastError = 0) then
begin
Application.Initalize;
Application.Title := 'Test';
Application.CreateForm(TForm1, Form1);
Application.Run;
if handle <> 0 then CloseHandle(handle);
end
else
begin
HPrevInst := FindWindow('TForm1', 'Test');
if not IsWindowVisible(HPrevInst) then
ShowWindow(HPrevInst, SW_RESTORE);
SetActiveWindow(HPrevInst);
SetForegroundWindow(HPrevInst);
end;
end.