Запись в реестр

[dmitriegorovih]

Всем доброе утро! Значит столкнулся с такой проблемой, когда завершаешь работу Windows, и программу выключает винда, то она не записывает в реестр, хотя если самому выключать, то записывает. Как решить данную проблему?
P.S. Записываю в реестр вот так.

procedure TForm1.zapisat_dannye;
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE', false);
reg.OpenKey('Монитор  трафика DeM version(2.0.0)', true);
if form1.Visible=true then begin
reg.WriteInteger('Отсуп от левого края (Окно основное)',form1.Left);
reg.WriteInteger('Отсуп от верхнего края (Окно основное)',form1.Top);
end;
finally
freeandnil(reg);
end;
end;

[Stilet]

А где вызывается этот метод?

[novichok1]

Попробуйте вызвать это действие в событиях onClose и onDestroy

[dmitriegorovih]

А где вызывается этот метод?

Попробуйте вызвать это действие в событиях onClose и onDestroy

Да забыл упомянуть вызываю в событии onDestroy.

[Ghost of Night]

Попробуйте поймать сообшение WM_Close своей прогой. и его обрабатывайте.

[dmitriegorovih]

Всем спасибо кто откликнулся отдельная благодарность Ghost of Night
Решил проблему так

  public
    { Public declarations }
    protected procedure IsWindowsShutDown(var Msg: TMessage); message WM_QUERYENDSESSION;

...

procedure TForm1.IsWindowsShutDown(var Msg: TMessage);
begin
inherited;     // выгружаем приложение
zapisat_dannye;
application.MainForm.Close;
end;

[Stilet]

WM_QUERYENDSESSION;

Вот это я и хотел выяснить.

Попробуйте вызвать это действие в событиях onClose и onDestroy

Они не помогут отловить и обработать завершение сейнса.