Screen Saver

0

Hello, mam taki problem: Robie se wygaszacz'a ekranu zmieniam rozszerzenie na scr i do tej pory wszystko jest dobrze... Ale jak chce go przetestowac (ustawiam zeby sie wlaczal po jednej minucie) to zamiast jednego wlacza sie ich cale mnostwo... Czy ktos moze mi powiec co mam dopisac zeby sie tak nie dzialo?--Delphi 6, Pascal

----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--

0

{$E scr}
var
Mutex:THandle; //rozwiązanie proglemu "JustOne" są oparte na Mutex'ie
begin
Mutex := CreateMutex(nil, True, 'wygaszacz');
if (Mutex &lt&gt 0) and (GetLastError = 0) then
begin
if pos('/S',UpperCase(ParamStr(1)))&gt0 then
begin
Application.Initialize;
Application.Title := 'Screen Saver A.Janowski 2002';
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
end;
if pos('/C',UpperCase(ParamStr(1)))&gt0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
end;
if pos('/P',UpperCase(ParamStr(1)))&gt0 then
begin
Application.Initialize;
Application.CreateForm(TForm3, Form3);
end;
Application.Run;
if Mutex &lt&gt 0 then CloseHandle(Mutex);
end;
end.--Spin
(Delphi 5 Enterprise)

1 użytkowników online, w tym zalogowanych: 0, gości: 1