Скачать: CL | DM;

Win 9X и WinNT в чем проблема?   Найти похожие ветки 

← →
@Ujin ©   (2003-09-28 16:02) [0]

Не видно функций под Windows 98/95.
Экспортирую dll функции следующего содержания:
//--------------------------------------------------------------
procedure WORKFORMINFO(P: Pointer); stdcall;
var MI: TMenuItemRec;
FITER{, FINTP}: PWorkFormInfo;
begin
with MI do begin
Caption := "Форма 1-тэр";
Hint := "Открыть форму 1-тэр";
TurnMenuItem := _FormsMenuCaption;
Command := "CreateForm TER1";
StringID := "TER1";
Enabled := True;
Icon := TIcon.Create;
Icon.Assign(GRI(GetModuleHandle(PChar("ter1.dll")), "TER1ICON"));
end;
RegisterMenuItem(MI);
TList(P).Clear;
New(FITER);
with FITER^ do begin
StringID := "TER1";
ClassName := "Tfrm1TEREnter";
LongName := "Форма 1-тэр";
Implementor := "TER1 IMPLEMENTOR";
PeriodType := 1; { 1 - месяц; 3 - квартл; 12 - год }
end;
TList(P).Add(FITER);
end;

procedure EnumClasses(P: Pointer); stdcall;
begin
jEnumClasses(["DM TER1", "TER1", "NTP1"], [TDM1TER, Tfrm1TEREnter, Tfrm1ntp], P);
end;

exports
EnumClasses,
WORKFORMINFO;
//--------------------------------------------------------------

Проблема в том, что под WinNT (т.е. WinXP все видно и замечательно работает, а вот под 98 и 95 их вовсе не видно в списке экспорта. Чтобы это могло быть. Заранее благодарен.

EnumClasses экспортируется и другими библиотеками, но с ними все в порядке. Ничего не понимаю... :(

---

← →
HolACost! ©   (2003-09-28 16:03) [1]

перекомпиль под 98

---

← →
@Ujin ©   (2003-09-28 16:06) [2]

HolACost! -> Оно конечно можно перекомпилировать под 98 но хочется и до сути проблемы докапаться. В дальнейшем подобные функции придется использовать в подобных библиотеках, и передавать придется не только ссылки на классы и интерфейсы, но и стеки объектов...

---

← →
@Ujin ©   (2003-09-28 16:16) [3]

Никто не сталкивался?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c