生成DLL拷贝到winnt或system32目录,然后regsvc32看看
解决方案 »
- CXGRID问题
- 将一字符串要保存为二进制文件,又能将二进制文件读还原成这个字符串,该怎么做?
- 【紧急求助】 用DELPHI 做的 DLL 返回 PCHAR 类型,返回值一长就会出错,请教如何解决? 100酬谢!
- 三层结构 不定期死机
- 有没有相当于DrawGrid控件的控件呢?要求是没有获得焦点的虚线框,有没有呢?
- Tab和Deldte键的问题。(在线等,解决立刻给分)
- 请问如何把符合IEEE-754标准的十六进制数转换为浮点数?
- 大家来评一下:很多人在得到人家给的解题结果后只会说谢谢,而不结贴
- 在控件Canvas上画的图形如何让它居中显示?
- OO给我的感觉,大家一起讨论一下
- 如何类似jetcar的标题窗口
- 请问如何获得DBGrid的RowHeight
那里有的下载????
即:
unit Unit1;interfaceuses
ComObj, ActiveX, AspTlb, Project2_TLB, StdVcl;type
TMTSFILE = class(TASPMTSObject, IMTSFILE)
protected
procedure GETTEXT; safecall;
function Get_text: IStrings; safecall;
procedure Set_text(const Value: IStrings); safecall;
end;implementationuses ComServ;
var
ss : string;
procedure TMTSFILE.GETTEXT;
VAR
f : textfile;
s : string;
begin
ss := '';
assignfile(f,'c:/guo.txt');
reset(f); WHILE not seekeof(f) do BEGIN
read(f,s);
ss := ss + s;
END;
closefile(f) ;
end;function TMTSFILE.Get_text: IStrings;
begin
Get_text := ss;
end;procedure TMTSFILE.Set_text(const Value: IStrings);
begin
GETTEXT;
end;initialization
TAutoObjectFactory.Create(ComServer, TMTSFILE, Class_MTSFILE,
ciMultiInstance, tmApartment);
end.