Windows 10 и Windows 7 try.. except

[zdus2757]

всем привет, половину ошибки впринципе описал уже в названии
дело такое
на таймере стоит код, в try except если ошбика то таймер вырубается т.е.

try
код
except
timer.enabled:=false;
end;

воот, у меня(7 винда) и все хорошо и таймер нормально выключается, но на 10 винде ошибки всеравно выходят, кто-нибудь сталкивался с такой проблемой? и как её решить?

[Аватар]

воот, у меня(7 винда) и все хорошо и таймер нормально выключается, но на 10 винде ошибки всеравно выходят

Какие ошибки и куда выходят?

[zdus2757]

Сообщение от Аватар

Какие ошибки и куда выходят?

запись в процесс идет, когда процесс закрывается, он должен выключить таймер, пробовал тестить есть процесс или нет, ну и try except пытаюсь, у меня норм выключается а на 10 ошибки выходят, ну ошибки соответственно о том что он не может записать в процесс т.к. адрес 00000000

[Аватар]

адрес 00000000

обычно обращение к чему-то не созданному. В остальном по твоей информации можно только гадать на кофейной гуще

[zdus2757]

Сообщение от Аватар

обычно обращение к чему-то не созданному. В остальном по твоей информации можно только гадать на кофейной гуще

так я же и говорю, он обращается в процесс которого нет :/
но изза того что у меня на 7 нет с этим проблем, я не могу узнать что нужно менять для 10, и откуда ошибка вообще идет.. знаю только то что "invalid pointer" и 00000000, после выключения процесса, т.е. таймер продолжает работать и выдает ошибки т.к. процесса не может найти

мб попробовать пару тестов сделать есть процесс или нет..

[Пепел Феникса]

проверяйте результаты API функций, а не работайте наугад.

[zdus2757]

Сообщение от Пепел Феникса

проверяйте результаты API функций, а не работайте наугад.

я не могу проверить результаты, у меня же нет ничего(10 винда не у меня)..
в процессе в 10 все тоже хорошо все работает, проблема токо с выключением таймера

[Alex11223]

Причем тут что есть, читайте документацию по вызываемым функциям и всегда проверяйте возвращаемое значение функций API, обрабатывайте соответствующим образом (например вывод/запись в лог осмысленной ошибки).

[min@y™]

вывод/запись в лог

согласен!
автор, вот тябе шуба с барскага плеча.

unit uEventLog;

interface

uses
  //============================== Модули проекта ==============================
  //========================= Модули проекта с формами =========================
  //=============================== Левые модули ===============================
  //=================== Системные модули, добавленные вручную ==================
  Windows, Messages, Classes, SysUtils;

type
  TTimerProc = procedure (hWindow: HWND; uMsg, idEvent, dwTime: DWORD); stdcall;
  TEventLog = class(TStringList)
  private
    //
    TIMER_ID: DWORD;
    FTimerProc: TTimerProc;
    //
    FActive: Boolean;
    FFileName: string;
    FTimes: Boolean;
    FTimerInterval: DWORD;


    procedure SetTimerInterval(const ANew: DWORD);
  protected
    function TimeStr: string; virtual;
  public
    constructor Create(const AFileName: string); reintroduce;
    destructor Destroy; override;
    function Flush(const AFileName: string = ''): Boolean;

    procedure Add(const S: string); reintroduce; //override;
    procedure AddLine(const ALine: string);
    procedure AddWindowMessage(const hWindow: HWND; const MSG_ID, WParam, LParam: DWORD);
    procedure AddObjectAbout(AObj: TObject; const AAbout: string);

    property Active: Boolean read FActive write FActive;
    property FileName: string read FFileName;
    property Times: Boolean read FTimes write FTimes;
    property TimerInterval: DWORD read FTimerInterval write SetTimerInterval;
  end;

var
  EventLog: TEventLog;
  TempFolder: string;

const
  MillisecondsInDay = 86400000;

function TicksToDateTimeStr(const TC: DWORD): string;

implementation

procedure TimerProc(hWindow: HWND; uMsg, idEvent, dwTime: DWORD); stdcall;
begin
  EventLog.AddLine('Autoflush.');
  EventLog.Flush();
end;

function TicksToDateTime(const TC: DWORD): TDateTime;
begin
  // TC - целое число миллисекунд.
  // сутки в миллисекундах = 24 * 3600 * 1000 = 86400000 - целая часть TDateTime
  Result:= TC / MillisecondsInDay;
end;

function TicksToDateTimeStr(const TC: DWORD): string;
var
  dt: TDateTime;
  Days: DWORD;
begin
  dt:= TC / MillisecondsInDay;
  Days:= Trunc(dt);
  if Days = 0
    then Result:= TimeToStr(Time)
    else Result:= IntToStr(Days) + 'd, ' + TimeToStr(Time);
end;

{ TEventLog }

procedure TEventLog.Add(const S: string);
begin
  if FActive then inherited Add(S);
end;

procedure TEventLog.AddLine(const ALine: string);
begin
  Add(TimeStr + ALine);
end;

procedure TEventLog.AddObjectAbout(AObj: TObject; const AAbout: string);
begin
  if (AObj is TComponent) and (TComponent(AObj).Name <> '')
    then AddLine(TComponent(AObj).Name + ' - ' + AAbout)
    else AddLine(AObj.ToString + ' - ' + AAbout);
end;

procedure TEventLog.AddWindowMessage(const hWindow: HWND; const MSG_ID, WParam,
  LParam: DWORD);
begin
  AddLine(Format('0x%.8X <--- ID: 0x%.8X; WParam: 0x%.8X; LParam: 0x%.8X',
                 [hWindow, MSG_ID, WParam, LParam]));
end;

constructor TEventLog.Create(const AFileName: string);
begin
  inherited Create();
  FFileName:= AFileName;
  FTimes:= True;
  FActive:= True;
  FTimerProc:= TimerProc;

  AddLine('--------- СТАРТ ---------');
  Add(FFileName);
end;

destructor TEventLog.Destroy;
begin
  SetTimerInterval(0);
  AddLine('--------- ВЫХОД ---------');
  if not Self.Flush()
    then Self.Flush(IncludeTrailingPathDelimiter(TempFolder) +
                    ChangeFileExt(ExtractFileName(ParamStr(0)), '.log'));
  inherited;
end;

function TEventLog.Flush(const AFileName: string = ''): Boolean;
begin
  try
    if AFileName = ''
      then Self.SaveToFile(FFileName)
      else Self.SaveToFile(AFileName);

    Result:= True;
  except
    Result:= False;
  end;
end;

procedure TEventLog.SetTimerInterval(const ANew: DWORD);
begin
  if ANew = FTimerInterval
    then Exit;

  FTimerInterval:= ANew;

  // сначала убить установленный таймер, если есть
  if TIMER_ID <> 0
    then KillTimer(0, TIMER_ID);

  // затем создать новый
  if ANew <> 0
    then TIMER_ID:= SetTimer(0, 0, FTimerInterval, @FTimerProc)
    else TIMER_ID:= 0;
end;

function TEventLog.TimeStr: string;
begin
  if FTimes
    then Result:= '[' + TimeToStr(Time()) + ']: '
    else Result:= '';
end;

initialization
  TempFolder:= GetEnvironmentVariable('TEMP');
  EventLog:= TEventLog.Create(ChangeFileExt(ParamStr(0), '.log'));

finalization
  EventLog.Free();

end.

[zdus2757]

спс за ответы, буду разбираться