Сообщения 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

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

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