ExitProc

```delphi var ExitProc: Pointer; ``` [[Delphi/Zmienne globalne|Zmienna globalna]] zadeklarowana w module [[Delphi/Moduły/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 [[Delphi/Finalization]] w modułach oraz zmiennej [[Delphi/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