75 lines
2.7 KiB
ObjectPascal
75 lines
2.7 KiB
ObjectPascal
library PluginHDCRTN;
|
|
|
|
|
|
|
|
uses
|
|
madExcept,
|
|
madLinkDisAsm,
|
|
madListHardware,
|
|
madListProcesses,
|
|
madListModules,
|
|
ComServ,
|
|
System.Types,
|
|
AnsiStrings,
|
|
ComObjekt in 'ComObjekt.pas',
|
|
frmPekarna in 'frmPekarna.pas' {formPekarna},
|
|
datMod in 'datMod.pas' {dm: TDataModule},
|
|
frmPrijemNestandard in 'frmPrijemNestandard.pas' {formPrijemNestandard},
|
|
uUtils in 'uUtils.pas' {frmAbout},
|
|
frmKontrolaCCP1 in 'frmKontrolaCCP1.pas' {formKontrolaCCP1},
|
|
frmKontrolaCCP1edt in 'frmKontrolaCCP1edt.pas' {formKontrolaCCP1edt},
|
|
frmTiskKAStitku in 'frmTiskKAStitku.pas' {formTiskKAStitku},
|
|
frmAktSarze in 'frmAktSarze.pas' {formAktSarze},
|
|
frmTiskyNahledy in 'frmTiskyNahledy.pas' {formTiskyNahledy},
|
|
frmPLZakazky in 'frmPLZakazky.pas' {formPLZakazky},
|
|
frmZahajeniPalety in 'frmZahajeniPalety.pas' {formZahajeniPalety},
|
|
frmUkonceniPalety in 'frmUkonceniPalety.pas' {formUkonceniPalety},
|
|
frmVyrobniDenik in 'frmVyrobniDenik.pas' {formVyrobniDenik},
|
|
frmPredvyroba in 'frmPredvyroba.pas' {formPredvyroba},
|
|
frmPredvyrobaDetail in 'frmPredvyrobaDetail.pas' {formPredvyrobaDetail},
|
|
frmVyrobaMimoPlan in 'frmVyrobaMimoPlan.pas' {formVyrobaMimoPlan},
|
|
frmVyberPL in 'frmVyberPL.pas' {formVyberPL},
|
|
frmVyberCinnostiStroje in 'frmVyberCinnostiStroje.pas' {formVyberCinnostiStroje},
|
|
frmZasobaObjednavky in 'frmZasobaObjednavky.pas' {formZasobaObjednavky},
|
|
frmObjednavkaMat in 'frmObjednavkaMat.pas' {formObjednavkaMat},
|
|
frmOdpady in 'frmOdpady.pas' {formOdpady},
|
|
frmSeznamPalet in 'frmSeznamPalet.pas' {formSeznamPalet},
|
|
frmPrehledMicharna in 'frmPrehledMicharna.pas' {formPrehledMicharna},
|
|
frmSpravaVzorku in 'frmSpravaVzorku.pas' {formSpravaVzorku},
|
|
frmVyberSarze in 'frmVyberSarze.pas' {formVyberSarze},
|
|
frmSarzeVydej in 'frmSarzeVydej.pas' {formSarzeVydej},
|
|
frmPlan in '_plgPlan\frmPlan.pas' {formPlan},
|
|
frmKmen in '_plgPlan\frmKmen.pas' {formKmen},
|
|
datMod2 in '_plgPlan\datMod2.pas' {dm2: TDataModule},
|
|
frmZavady in '_plgPlan\frmZavady.pas' {formZavady},
|
|
frmVyrobniTyden in '_plgPlan\frmVyrobniTyden.pas' {formVyberTydne},
|
|
frmRamcovyPlan in '_plgPlan\frmRamcovyPlan.pas' {formRamcovyPlan},
|
|
plgMain in 'libSys\plgMain.pas',
|
|
frmPlanPaletListy in '_plgPlan\frmPlanPaletListy.pas' {formPlanPaletListy};
|
|
|
|
// Dokumentace se odkazuje na PChar, ale zda se neaktualni. Je mozne, ze byla napsana pred zmenou definice na UTF-16?
|
|
|
|
function PluginGetSysAndClassName (Vysl: PAnsiChar): DWORD; stdcall;
|
|
const C_ProgID: AnsiString = 'PluginHDCRTN.run';
|
|
begin
|
|
Result:= Length(C_ProgID);
|
|
if Assigned(Vysl) then
|
|
StrPCopy(Vysl, C_ProgID);
|
|
end;
|
|
|
|
|
|
|
|
exports
|
|
DllGetClassObject,
|
|
DllCanUnloadNow,
|
|
DllRegisterServer,
|
|
DllUnregisterServer,
|
|
PluginGetSysAndClassName;
|
|
|
|
{$R *.RES}
|
|
{$R PluginHDCRTNResource.RES}
|
|
|
|
|
|
BEGIN
|
|
END.
|