VssConneXion这个软件听说过没有

dead_lee 2002-08-14 05:55:07
可以非常方便和VSS连接的工具,我有以前for D5的正式版,但是没有for D6的正式版,谁有,知会一下好吗。
...全文
104 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
dead_lee 2002-08-19
  • 打赏
  • 举报
回复
我也不过是照抄人家给我的答案而已。。。
navy 2002-08-19
  • 打赏
  • 举报
回复
for D6的方法,D5照样可以用!
谢谢dead_lee 同志!
给dead_lee 同志记一等功!
要分的话,请说要多少!
navy 2002-08-18
  • 打赏
  • 举报
回复
唉,我们一堆人正在用d5 正版开发,没用d6做.可惜呀?
真的没有for D5的?
cdimp 2002-08-18
  • 打赏
  • 举报
回复
up
dead_lee 2002-08-18
  • 打赏
  • 举报
回复
d5的现在不用了,不知道丢到那里去了,我在大富翁问到了答案,你看有没有帮助.

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.

把这这些存为两个文件,并编译。然后复制到安装目录下,就成了已注册版了。
navy 2002-08-17
  • 打赏
  • 举报
回复
我有d6的,你有D5 的,我们交换吧.有兴趣的联系一下.
navy_chen@163.net
newware 2002-08-17
  • 打赏
  • 举报
回复
哪能下载阿?
dead_lee 2002-08-17
  • 打赏
  • 举报
回复
提示框到无所谓,我担心过期不能用了,就麻烦了。
backlove 2002-08-17
  • 打赏
  • 举报
回复
我在用呀,不过没有注册,总是出烦人的提示框
dead_lee 2002-08-17
  • 打赏
  • 举报
回复
没有人感兴趣吗。。
dead_lee 2002-08-16
  • 打赏
  • 举报
回复
http://www.epocalipse.com/
大家下载下来看看.
dead_lee 2002-08-14
  • 打赏
  • 举报
回复
那里好像连不上,不如大家介绍一下自己在协作开发中用什么版本控制工具吧,不会都用team source吧。
jb就带了和vss连接的工具,可是delphi为什么没有呢。
dejoy 2002-08-14
  • 打赏
  • 举报
回复
没有听说过,到www.51delphi.com去看看

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧