System.InitProc

From Appmethod Libraries
Jump to: navigation, search

Object Pascal

InitProc: Pointer;        { Last installed initialization procedure }

C++

extern DELPHI_PACKAGE void *InitProc;

Properties

Type Visibility Source Unit Parent
variable public
System.pas
System.hpp
System System

Description

InitProc is the last installed initialization procedure.

Assign a value to InitProc to specify a procedure that you want to execute when the application starts up. The value of InitProc is a procedure with no parameters. For example:

  • In Object Pascal, the assignment can be made in the initialization section of a unit:
procedure MyInitProcedure;
  ...
initialization
  InitProc := @MyInitProcedure;
end.
  • In C++, the assignment is most easily made in the project source file.
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  try
  {
    // Note that call must precede call to Application->Initialize();
    System.InitProc = MyInitProcedure;
    Application->Initialize();
    Application->CreateForm(__classid(TForm1), &Form1);
    Application->Run();
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }
  catch (...)
  {
    try
    {
      throw Exception("");
    }
    catch (Exception &exception)
    {
      Application->ShowException(&exception);
    }
  }
  return 0;
} 

Only one initialization procedure can be assigned to the InitProc variable. If your application defines more than one initialization procedure, only the last assignment to InitProc executes. To allow other initialization procedures to execute, you must "chain" the procedures together, calling the previously assigned value of InitProc from the new value.

See Also