Советы по Delphi. Версия 1.0.6

Озеров Валентин

Автоматический формат даты в компоненте Edit

PROCEDURE TForm1.Edit1Exit(Sender: TObject);

BEGIN

 IF Edit1.Text<>'' THEN BEGIN

TRY

StrToDate(Edit1.Text);

EXCEPT

Edit1.SetFocus;

MessageBeep(0);

raise Exception.Create('"'+Edit1.Text + '&quot – некорректная

дата');

END {try};

Edit1.Text:= DateToStr(StrToDate(Edit1.Text));

 END{if};

END;

Win API

Переменные среды

Получение переменных DOS

Какие функции Windows API позволяют получить переменные DOS?

Функция GetEnvironmentStrings возвращает адрес памяти со средой текущего процесса. Все переменные возвращаются в виде строк, оканчивающихся нулем. Набор строк терминируется двумя нулями.

Функция GetEnvironmentVariable возвращает значения переменных среды опрашиваемого процесса. Величина также возвращается в виде строки с завершающим нулем.

Изменение системного времени из Delphi

Как я могу сменить системное время Windows 95 из программы, написанной на Delphi 2.0?

Вот правильное решение:

//*************************************************************************

// Функция (раздел Public) SetPCSystemTime изменяет системную дату и время.

// Параметр(ы) : tDati Новая дата и время

// Возвращаемые значения: True – успешное завершение

// False – метод не сработал

//*************************************************************************

function SetPCSystemTime(tDati: TDateTime): Boolean;

var

 tSetDati: TDateTime;

 vDatiBias: Variant;

 tTZI: TTimeZoneInformation;

 tST: TSystemTime;

begin

 GetTimeZoneInformation(tTZI);

 vDatiBias := tTZI.Bias / 1440;

 tSetDati := tDati + vDatiBias;

 with tST do begin

wYear:= StrToInt(FormatDateTime('yyyy', tSetDati));

wMonth:= StrToInt(FormatDateTime('mm', tSetDati));

wDay:= StrToInt(FormatDateTime('dd', tSetDati));

wHour:= StrToInt(FormatDateTime('hh', tSetDati));

wMinute:= StrToInt(FormatDateTime('nn', tSetDati));

wSecond:= StrToInt(FormatDateTime('ss', tSetDati));

wMilliseconds:= 0;

 end;

 SetPCSystemTime:= SetSystemTime(tST);

end;

Завершение

работы Windows

События, происходящие в приложениях Delphi при завершении работы Windows

Я провел небольшое исследование, и вот что я выяснил:

При закрытии приложения (используя системное меню или вызывая метод закрытия формы), возникают следующие события:

1. FormCloseQuery – действие по умолчанию, устанавливает переменную CanClose в значание TRUE и продолжает закрытие формы.

2. FormClose

3. FormDestroy

Если приложение активно и вы пытаетесь завершить работу Windows (Shut Down), происходят следующие события (с соблюдением последовательности):

1. FormCloseQuery

2. FormDestroy

Мы видим, что метод FormClose в этом случае не вызывается.

Теперь воспроизведем всю последовательность событий, происходящую при попытке завершить работу Windows:

1. Windows посылает сообщение WM_QUERYENDSESSION всем приложениям и ожидает ответ.

2. Каждое приложение получает сообщение и возвращает одну из величин: не равную нулю – приложение готово завершить свою работу, 0 – приложение не может завершить свою работу.

3. Если одно из приложений возвращает 0, Windows не завершает свою работу, а снова рассылает всем окнам сообщение, на этот раз WM_ENDSESSION.

4. Каждое приложение должно снова подтвердить свою готовность завершить работу, поэтому операционная система ожидает ответа TRUE, резонно предполагая, что оставшиеся приложения с момента предыдущего сообщения закрыли свои сессии и готовы завершить работу. Теперь посмотрим, как на это реагирует Delphi-приложение: приложение возвращает значение TRUE и немедленно вызывает метод FormDestroy, игнорируя при этом метод FormClose. Налицо проблема.

5. Завершение работы Windows.

Первое решение проблемы: приложение Delphi на сообщение WM_QUERYENDSESSION должно возвратить 0, не дав при этом Windows завершить свою работу. При этом бессмысленно пытаться воспользоваться методом FormCloseQuery, поскольку нет возможности определить виновника завершения работы приложения (это может являться как результатом сообщения WM_QUERYENDSESSION, так и просто действием пользователя при попытке закрыть приложение).

Другое решение состоит в том, чтобы при получении сообщения WM_QUERYENDSESSION самим выполнить необходимые действия, вызвав метод FormClose.

Пример:

unit Unit1;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs;

type TForm1 = class(TForm)

 procedure FormClose(Sender: TObject; var Action: TCloseAction);

private