VssConneXion这个软件听说过没有(100分)

  • 主题发起人 主题发起人 dead_lee
  • 开始时间 开始时间
D

dead_lee

Unregistered / Unconfirmed
GUEST, unregistred user!
可以非常方便和VSS连接的工具,我有以前for D5的正式版,
但是没有for D6的正式版,谁有,知会一下好吗。
http://www.epocalipse.com/
大家下载下来看看.
 
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.

把这这些存为两个文件,并编译。然后复制到安装目录下,就成了已注册版了。
 
太谢谢了
 
我按照Xxfeng的方法编译了dll,但是替换以前的文件后,D6启动时提示无法启动wizzard
的接口,好像还是不行啊.
 
不可能的。告诉我你的邮件,我发一个给你。
 
公司邮箱,lij@isd.com.cn,最好也附上源码,我看看到底怎么回事。。。
 
或者我的免费邮箱,dead_lee@163.com
 
有没有delphi的破解文件,急需
webmaster@20973.com
 

Similar threads

回复
0
查看
1K
不得闲
回复
0
查看
555
不得闲
D
回复
0
查看
744
DelphiTeacher的专栏
D
后退
顶部