Prvotni verze pro Giteu

2025-09-13 09:14:20 +02:00
parent fbe784e708
commit 641c81f487
30 changed files with 69739 additions and 17 deletions
--- a/plgEMPDeleniTrubek.dpr
+++ b/plgEMPDeleniTrubek.dpr
@ -0,0 +1,80 @@
+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<72>ch Delphi tu bylo PChar, proto<74>e PChar a PAnsiChar
+//  bylo to sam<61>, od Delphi 2009 to ji<6A> neplat<61>
+{
+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.