| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сообщения Windows
Arm79 © (2003-06-25 15:19:00)
Необходимо написать программу, которая должна выполнять какие-либо действия при перезагрузке. Программу я прячу. Но при завершении сеанса действия не выполняются, только при явном завершении работы программы. Подскажите, пожалуйста, какое сообщение необходимо обрабатывать.
///////////////////////////////////////
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;
Арм79 (2003-07-01 14:22:00) [1]
2 VMcL
Программа демонстрационная, поэтому код на особое изъящество не претендует. А в чем вопрос?
Wizard_Ex (2003-06-26 18:15:00) [2]
не в onClose случайно код, который должен выполниться?
обрабатывай QueryEndSession
VMcL (2003-06-25 17:57:00) [3]
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;
?
| |
