Dakle u dogadjaj forme onclose stavis ovo:
Code:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not(moze) then abort;
end;
a u "onclick" dogadjaj dugmeta ovo:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
moze := true;
close
end;
i moras da imas globalnu promenjivu "moze" tipa boolean, ovakav program se moze iskljuciti samo na dugme i preko task manager-a.
Drugi deo pitanja:
Ne razumem bas najbolje pitanje. Zasto ti program ne radi posao kad je film startovan!?
Mozez da proveravas na odredjeni vremenski interval da li je form1.WindowState = wsMinimized, pa ako jeste onda ukljucis drugi tajmer koji posle izvesnog vremena uradi form2.show
sudo make me a sandwich