library plgEMPDeleniTrubek;

{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
{$IFOPT D-}
 {$SetPEFlags $AC0E}
 {$SetPEOptFlags $AC0E}
{$ELSE}
 {$SetPEFlags $AA02}
 {$SetPEOptFlags $AA02}
{$ENDIF}

// IMAGE_FILE_RELOCS_STRIPPED                     = $0001
// IMAGE_FILE_EXECUTABLE_IMAGE                    = $0002 *
// IMAGE_FILE_LINE_NUMS_STRIPPED                  = $0004 *
// IMAGE_FILE_LOCAL_SYMS_STRIPPED                 = $0008 *
// IMAGE_FILE_AGGRESIVE_WS_TRIM                   = $0010
// IMAGE_FILE_LARGE_ADDRESS_AWARE                 = $0020
// IMAGE_FILE_BYTES_REVERSED_LO                   = $0080
// IMAGE_FILE_32BIT_MACHINE                       = $0100
// IMAGE_FILE_DEBUG_STRIPPED                      = $0200
// IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP             = $0400 *
// IMAGE_FILE_NET_RUN_FROM_SWAP                   = $0800 *
// IMAGE_FILE_SYSTEM                              = $1000
// IMAGE_FILE_DLL                                 = $2000 *
// IMAGE_FILE_UP_SYSTEM_ONLY                      = $4000
// IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000 *


{$I plgEMPDeleniTrubek.inc}

uses
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  System.Win.ComServ,
  System.AnsiStrings,
  System.Types,
  ddPlugin_TLB,
  VCL.Dialogs,
  ComObjekt in 'ComObjekt.pas',
  frmMain in 'frmMain.pas' {formMain},
  frmCalc in 'frmCalc.pas' {formCalc},
  datModul in 'datModul.pas' {dm: TDataModule},
  frmObrazekKZ in 'frmObrazekKZ.pas' {formObrazekKZ},
  frmKeyb in 'frmKeyb.pas' {formKeyb},
  frmPolozkyMD in 'frmPolozkyMD.pas' {formPolozkyMD};

//uses
//  System.Win.ComServ,
//  ddPlugin_TLB,
//  ComObjekt in 'ComObjekt.pas' {/  ,frmMain in 'frmMain.pas' {formMain}},
//  Unit1 in 'Unit1.pas' {Form1};



//* v neunicode verzích Delphi tu bylo PChar, protože PChar a PAnsiChar
//  bylo to samé, od Delphi 2009 to již neplatí
{
function PluginGetSysAndClassName(Vysl: PAnsiChar): DWORD; stdcall;
const C_ProgID = 'plgEMPDeleniTrubek.runMe';
begin
  Result := Length(C_ProgID);
  if Assigned(Vysl) then
    StrPCopy(Vysl, C_ProgID);
end;
}

exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;

{$R *.RES}

BEGIN
END.