Dll 캡슐 창

1812 단어 dll
library CallDetail;

uses
SysUtils,
Classes,
ADODB,
Dialogs,
ActiveX,
DishDetail in 'DishDetail.pas' {frmOrderDetail};

function CallDishDetail(Orderid:Integer):Boolean;stdcall;
var
f:TfrmOrderDetail;
begin
Result:=False;
f:=TfrmOrderDetail.Create(nil);
try
f.OrderID:=Orderid;
f.ShowModal;
Result:=True;
finally
f.Free;
end;
end;

{$R *.res}
exports
CallDishDetail;
begin
end.

//
unit DishDetail;
// ADO , Com
initialization
CoInitialize(nil);
finalization
CoUninitialize;

end.

좋은 웹페이지 즐겨찾기