unit UPACType;{v0.22}
interface
uses
  UlanType, ULRecTyp, Classes;{ULanRECs.LST}

const
  UPACID = ord('U') + 256*ord('P') + 256*256*ord('A') + 256*256*256*ord('C');

type
  TUPACRec = packed record {<Caption="Command Action" Enabled=1 Visible=1
    HasRecName=1>}
    { - run method specified in Method field
      - run dll command specified in Command = 'DLLName.ProcName'
           Does everything what is non empty in given order }
    Head: TULRecHead;
    Info: TULRecInfo;
    ActionName: TULPrgActionName;
    Command: String;
    Method: TNotifyEvent;{<Type=Method>}
  end;
  PUPACRec = ^TUPACRec;

implementation

end.
