『壹』 关于Delphi程序自动升级问题!
最简单的可以把自动升级功能单独做成一个程序，然后这个程序去上Server获取版本信息，如果小于当前版本就从服务器上下载更新文件，然后结束掉当前的主程序，接着覆盖过去。 如果是局域网C/S的话，用exe没问题做更新文件。
『贰』 如何用Delphi看本程序的版本号（急）
我有一个控件，控件不是有个版本号？比如，"1.0.165.2"我想在控件中显示控件本身的版本号。怎么做？我找不到版本号的属性。(:<
『叁』 现在delphi最新的版本是什么多少，有什么
delphi7studio于2002年夏季推出，有四个版本：体系版(architect)，企业版(enterprise)，专业版(professional)和个人版(personal)。体系版，企业版和专专业版都属配备delphi语言的borlandkylix3完整版对初学者什么版本都是一样地，不过建议你用企业版，功能强大些．
『肆』 delphi中，如何获得自身程序的发布版本
1.BDE 这是使用Delphi最多的一种方式，建立一个BDE别名可以在控制面板中的BDE Administration中添加，不过我习惯在SQL Explorer中建立，因为建立之后直接可以执行建表的脚本了。 你可以在SQL Explorer中左边的别名列表中点击右键，并选择要连接的数据库种类，并在之后BDE建立的连接参数中填入必要的信息，注意，当你选择不同的数据库时，右边的参数有少许的不同，这些参数的不同是由于不同数据库所要求的参数不同造成的，例如SqlServer需要输入服务器的名称，数据库的名称。 BDE能够连接我所使用过的所有的数据库，当然有些是通过ODBC来连接的。 在发布程序时，必须发布BDE引擎。用InstallShield Express可以很方便的做这件事情 BDE的别名也可以在Delphi程序中动态的检查有无并建立之。我通常用TSession组件来Do It。 2.ODBC 这是Ms的产品。 如果你在ODBC中建立了一个DSN连接，那么你的Delphi程序还是需要使用BDE来连接它，但是此时不需要用上一步中的手动建立别名，BDE会将ODBC中的所有别名自动在BDE中建立相同名称的别名，并且它是删不掉的，除非你删掉ODBC的DSN。 这种方式的实际是程序通过BDE，再通过ODBC，才连接到数据库。 在早期使用Aceess时，我通常使用这种方式。因为那时候还没有ADO。 同样在使用IBM UDB时，我也用这种方式，因为在使用BDE直接连接时，在SQL Explorer中将不能枚举数据库中的表，而ODBC可以。 AS/400也可以使用这种方式来连接… 大型关系型数据库都提供ODBC驱动。在建立ODBC源时，都会调用其本身的配置，不同的数据库也是不同的。 ODBC源也可以在程序用代码写入注册表中，来生成一个DSN.
『伍』 delphi 怎么获取bios版本
function GetApplicationVersion:String; // Added 取得程序版本号 var FileName:String; InfoSize,Wnd:DWORD; VerBuf:Pointer; VerInfo:^VS_FIXEDFILEINFO; begin Result:='0.0.0.0'; FileName:=Application.ExeName; InfoSize:=GetFileVersionInfoSize(PChar(FileName),Wnd); if InfoSize<>0 then begin GetMem(VerBuf,InfoSize); try if GetFileVersionInfo(PChar(FileName),Wnd,InfoSize,VerBuf) then begin VerInfo:=nil; VerQueryValue(VerBuf,'\',Pointer(VerInfo),Wnd); if VerInfo<>nil then Result:=Format('%d.%d.%d.%d',[VerInfo^.dwFileVersionMS shr 16, VerInfo^.dwFileVersionMS and $0000ffff, VerInfo^.dwFileVersionLS shr 16, VerInfo^.dwFileVersionLS and $0000ffff]); end; finally FreeMem(VerBuf,InfoSize); end; end; end;
『陆』 DELPHI 里程序的版本信息怎么是灰色的，无法更改
耐心读以下说明，应该能解决你的问题，如果不能解决，请Hi我~如何给自己的dll文件添加版本信息呢？首先建立一个文件后缀为.rc(以ver.rc为例),用记事本打开，拷贝下面内容:("//"号为注释，会被编译器丢弃，这里只是为了说明才加上的。)VS_VERSION_INFO VERSIONINFO //版本信息结构FILEVERSION 1,0,0,1 //顾名思义文件版本，就是在属性页版本上面显示的|PRODUCTVERSION 1,0,0,1 //顾名思义产品版本 |这里是主版本信息FILEFLAGSMASK 0x3fL //这里设为0x3fL就好了 |#ifdef _DEBUGFILEFLAGS 0x1L //VS_FF_DEBUG包括debug信息#elseFILEFLAGS 0x0L //无#endifFILEOS 0x4L //对应于delphi中VOS__WINDOWS32，说明程序是win32程序FILETYPE 0x2L //文件类型，$2是dll,$1是exeFILESUBTYPE 0x0L //文件子类型，一般设为0即可BEGIN BLOCK "StringFileInfo" //这里设置文件其他的版本信息(详细信息) BEGIN BLOCK "080403A8" //所用语言080403A8简体中文，040904b0英语(美国) BEGIN VALUE "Comments", "My Dll Application test" //备注 VALUE "CompanyName", "JJony\0" //公司名 VALUE "FileDescription", "xxx.dll\0" //产品描述 VALUE "FileVersion", "1. 0. 0. 1\0" //文件版本 VALUE "InternalName", "" //内部名称 VALUE "LegalCopyright", "Copyright (C) 2006.6\0" //版权信息 VALUE "OriginalFilename", "xxx.dll\0" //源文件名 VALUE "ProctName", "xxx.dll\0" //产品名 VALUE "ProctVersion", "1. 0. 0. 1\0" //产品版本 END END BLOCK "VarFileInfo" BEGIN VALUE "Translation", 0x804, 0x03A8 //这里是关键哦，决定了是什么语言 END //0x0804, 0x03A8简体中文END //0x0409, 0x04b0英语(美国)你看出了什么没有，实际上就是填充了delphi中的VS_VERSIONINFO和VS_FIXEDFILEINFO结构，只不过这里面的语言格式是VC的罢了:)把上面存为.rc文件(以ver.rc为例)。拷贝delphi7\bin\brcc32.exe到你的程序目录，再建立ver.bat，输入:brcc32 ver.rc保存。双击运行ver.bat,生成ver.res,然后在你的dll工程里添加资源{$R ver.res}重新编译dll，你会发现dll也有了自己的版本信息了
『柒』 怎么在delphi程序里加上版本号
delphi 程序添加版本号，需要根据程序显示版本号的用途确定。
如果是在程序里 关于… 对话框 这种专界面上显示版本属号，可以添加一个 label 标签，直接设置显示版本号即可。
如果是将编译的程序里，添加上版本号、著作权等信息，可以设置工程的属性，如下图所示：
『捌』 我的delphi程序编译了怎么版本号没有变啊
选择project–options–version info勾选include version information in project和auto-increment build number就可以专了属
『玖』 Delphi 7 编译生成可执行文件，无版本信息，如何处理才能出现版本信息
版本信息是在生成的可执行文件后，右键-属性-版本 里会显示的 ，或鼠标移到那个程序上面时也有显示，如果在Delphi里设置了版本号后还没显示，应该是你delphi的问题了，建议可以重装下试试 ，我用的是D7,测试过是正常的。
『拾』 如何确定Delphi应用程序版本问题，怎么解决
functionShowVersion:String;//获得应用程序的版本号
var
VerInfo:PChar;
lpTranslate:PLANGANDCODEPAGE;
FileName:String;
VerInfoSize,VerSize,cbTranslate:DWORD;
VerValueSize:DWORD;
Data:String;
VerFileV:PChar;
lpFileVersion:string;
begin
Result:='0.0.0.0';
FileName:=Application.ExeName;//应用程序对应的exe文件
VerInfoSize:=GetFileVersionInfoSize(PChar(FileName),VerSize);
ifVerInfoSize>0then
begin
VerInfo:=AllocMem(VerInfoSize);
GetFileVersionInfo(PChar(FileName),0,VerInfoSize,VerInfo);
VerQueryValue(VerInfo,PChar('/VarFileInfo/Translation'),Pointer(lpTranslate),cbTranslate);
ifcbTranslate<>0then
begin
Data:=format('/StringFileInfo/%.4x%.4x/FileVersion',[lpTranslate^.wLanguage,lpTranslate^.wCodePage]);
VerQueryValue(VerInfo,PAnsiChar(data),Pointer(VerFileV),VerValueSize);
ifVerValueSize<>0then
begin
SetString(lpFileVersion,VerFileV,VerValueSize-1);
Result:=lpFileVersion;
end;
end;
FreeMem(VerInfo,VerInfoSize);
end
else
begin
Result:='0.0.0.0';
Application.MessageBox('获取文件版本信息时遇到致命错误，请重新打开软件。','错误',MB_OK+MB_ICONSTOP);
Application.Terminate;
end;
end;
