如何注册Ocx控件? install shield for delpi 4.0可以直接注册点中次ocx,看他的properties,有self register 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 kxy是对的,在IS Express中把ocx文件包含进去,然后看ocx文件的properties,有关于Self-register的选择,自然就可以自动注册了 我不知道可否用IS Express,请那位知道告诉我一下,email:[email protected]但我知道一个用程序注册的方法:procedure TForm1.Button1Click(Sender: TObject);var astr,bstr:string; ProcAddr:Pointer; DllAddr:integer;beginOpendialog1.Execute;astr:=OpenDialog1.filename + chr(0);DllAddr:=LoadLibrary(PChar(astr));if (DllAddr<>0) then begin label1.caption:=astr; bstr:='DllRegisterServer' + chr(0); ProcAddr:=GetProcAddress(DllAddr,PChar(bstr)); if ProcAddr<> nil then CallWindowProc(ProcAddr,DllAddr,0,0,0) else ShowMessage(OpenDialog1.Filename + '不是有效的控件'); FreeLibrary(DllAddr); endelse ShowMessage(OpenDialog1.Filename + '无法装载');end; delphi调用C#开发的用户控件 请那位高手为我疱丁解牛把这个界面剖析一下! 关于定义类型为class的数组的问题,向大家请教 收集了一下图标的网络资源,希望能帮到有需要的兄弟! BDE组件里的Table控件的属性Databasename里的东西是什么?怎么用?? 要有关打印的所有资料 ---!!!100分的简单数据库与程序相联系的简单问题---- 在线,求救,多谢! 图片的加密解密 pdg是什么文件!!!! 有关于数据库的问题! shellexecute的问题
但我知道一个用程序注册的方法:
procedure TForm1.Button1Click(Sender: TObject);
var astr,bstr:string;
ProcAddr:Pointer;
DllAddr:integer;
begin
Opendialog1.Execute;
astr:=OpenDialog1.filename + chr(0);
DllAddr:=LoadLibrary(PChar(astr));
if (DllAddr<>0) then
begin
label1.caption:=astr;
bstr:='DllRegisterServer' + chr(0);
ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
if ProcAddr<> nil then
CallWindowProc(ProcAddr,DllAddr,0,0,0)
else
ShowMessage(OpenDialog1.Filename + '不是有效的控件');
FreeLibrary(DllAddr);
end
else
ShowMessage(OpenDialog1.Filename + '无法装载');
end;