Скачать: CL | DM;

Сообщения Windows   Найти похожие ветки 

← →
Arm79 ©   (2003-06-25 15:19) [0]

Необходимо написать программу, которая должна выполнять какие-либо действия при перезагрузке. Программу я прячу. Но при завершении сеанса действия не выполняются, только при явном завершении работы программы. Подскажите, пожалуйста, какое сообщение необходимо обрабатывать.

///////////////////////////////////////
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1.Action1.Execute;
Application.ShowMainForm:=false;
Application.Run;
Form1.Action2.Execute;
end.
/////////////////////////////////////
procedure TForm1.Action1Execute(Sender: TObject);
begin
if FileExists("c:\myLog.txt")
then
Memo1.Lines.LoadFromFile("c:\myLog.txt");
Memo1.Lines.Add("Включено"#9"- "+DateTimeToStr(Now));
end;

//////////////////////////////////////
procedure TForm1.Action2Execute(Sender: TObject);
begin
Memo1.Lines.Add("Выключено"#9"- "+DateTimeToStr(Now)+#10#13);
Memo1.Lines.SaveToFile("c:\myLog.txt");
end;

---

← →
VMcL ©   (2003-06-25 17:57) [1]

procedure TForm1.Action2Execute(Sender: TObject);
begin
if FileExists("c:\myLog.txt") then
Memo1.Lines.LoadFromFile("c:\myLog.txt");
Memo1.Lines.Add("Выключено"#9"- "+DateTimeToStr(Now)+#10#13);
Memo1.Lines.SaveToFile("c:\myLog.txt");
end;

?

---

← →
Wizard_Ex ©   (2003-06-26 18:15) [2]

не в onClose случайно код, который должен выполниться?

обрабатывай QueryEndSession

---

← →
Арм79   (2003-07-01 14:22) [3]

2 VMcL

Программа демонстрационная, поэтому код на особое изъящество не претендует. А в чем вопрос?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c