2.0 有 FOR D6 的。它的主页上有下载。
注册方法:
VCXD6.dpr
=========================
library VCX;
uses
VCXUnit in 'VCXUnit.pas';
exports
Initialize name 'INITWIZARD0001';
begin
end.
VCXUnit.pas
======================================
unit VCXUnit;
interface
uses Windows, SysUtils, ToolsAPI, Registry;
function Initialize(const Services: IBorlandIDEServices;
RegisterProc: TWizardRegisterProc;
var TerminateProc: TWizardTerminateProc): Boolean;
stdcall;
implementation
var
hVCSLib: THandle;
fnWizardInit: TWizardInitProc;
function Initialize(const Services: IBorlandIDEServices;
RegisterProc: TWizardRegisterProc;
var TerminateProc: TWizardTerminateProc): Boolean;
var
VCSLibName: String;
Reg: TRegistry;
begin
Result := False;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
if ( Reg.OpenKey('CLSID/{24FD5193-AB84-11D2-A0E7-00104B243179' +
IntToStr(GetCurrentProcessID) + '}', True) ) then
begin
Reg.WriteString('', 'Shell.Ext');
Reg.RootKey := HKEY_CURRENT_USER;
if ( Reg.OpenKey('Software/EPocalipse/VssConneXion/2.0/Delphi/6.0', False) ) then
begin
VCSLibName := Reg.ReadString('DllName');
hVCSLib := LoadLibrary(PChar(VCSLibName));
if ( hVCSLib <> 0 ) then
begin
fnWizardInit := GetProcAddress(hVCSLib, 'VCXENTRY');
if ( Assigned(fnWizardInit) ) then
Result := fnWizardInit(Services, RegisterProc, TerminateProc);
end
end;
end;
Reg.Free;
end;
end.
把这这些存为两个文件,并编译。然后复制到安装目录下,就成了已注册版了。