81 lines
2.2 KiB
ObjectPascal
81 lines
2.2 KiB
ObjectPascal
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.
|