ExitProc

var ExitProc: Pointer;

Zmienna globalna zadeklarowana w module System. Wskazuje na adres procedury, która zostanie wykonana w momencie zamykania aplikacji. Zmienna ta uważana jest za przestarzałą i nie zalecana do użycia. Dodatkowo, nie jest kompatybilna z pakietami lub bibliotekami DLL. Zamiast tego zalecane jest użycie sekcji Finalization w modułach oraz zmiennej DLLProc w bibliotekach DLL.

Poniższy program prezentuje przykład przypisania procedury kończącej, która zostanie wykonana w momencie zamykania aplikacji:

program Foo;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure MyExitProc;
begin
  MessageBox(0, 'Kończymy działanie programu', 'Koniec!', 0);
end;

begin
  ExitProc := @MyExitProc;

  Writeln('Naciśnij Enter, aby zakończyc...');
  Readln;
end.

Zobacz też:

• DLLProc
• ExitCode
• AddExitProc
• AddTerminateProc
• CallTerminateProcs