Delphi做的软件自动更新_delphi tmxwebupdate-优快云博客

本文链接：https://blog.youkuaiyun.com/zhaoxiaohao/article/details/4045881

这个博客分享了作者如何利用Delphi编写自动更新程序的关键技术，包括获取版本号、批处理删除自身功能，以及结合网络上的资源。文章中包含了单元UnitUpG的详细实现，涉及版本信息获取、进程管理、文件操作等核心代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

自己整理做的delphi自动更新程序，关键技术要感谢僵哥提供的获取版本号功能和startluck提供的批处理删除自身的功能，以及在网上查找资料所不能列举的各位好朋友！（本文章仅作为自己备忘所用）

unit UnitUpG;

interface

uses
Forms,
Windows,
SysUtils,
Classes,
Controls,
URLMON,
SHellAPi,
iniFiles,
Tlhelp32;
procedure UpGrade;
procedure KillExe;
var
SName:String;
UpGradeB:Boolean;
type
TLANGANDCODEPAGE=record
    wLanguage,wCodePage:Word;
end;
PLANGANDCODEPAGE=^TLANGANDCODEPAGE;

type
TUpDateThread=class(TThread)
protected
    procedure Execute;override;
end;

implementation

uses UNIT1;

function ShowVersion:String;
var
VerInfo:PChar;
lpTranslate:PLANGANDCODEPAGE;
FileName:String;
VerInfoSize,cbTranslate:DWORD;
VerValueSize:DWORD;
Data:String;

VerFileV:PChar;
lpFileVersion:string;
begin
Result:='0.0.0.0';
FileName:=Application.ExeName;
VerInfoSize:=GetFileVersionInfoSize(PChar(FileName),VerInfoSize);
if VerInfoSize>0 then
begin
    VerInfo:=AllocMem(VerInfoSize);

    GetFileVersionInfo(PChar(FileName),0,VerInfoSize,VerInfo);

    VerQueryValue(VerInfo, PChar('/VarFileInfo/Translation'), Pointer(lpTranslate),cbTranslate);

    if cbTranslate<>0 then
    begin
      Data := format('/StringFileInfo/%.4x%.4x/FileVersion',[lpTranslate^.wLanguage,lpTranslate^.wCodePage]);

      VerQueryValue(VerInfo, PAnsiChar(data),Pointer(VerFileV), VerValueSize);
      if VerValueSize <> 0 then
      begin
        SetString(lpFileVersion,VerFileV,VerValueSize-1);
        Result:=lpFileVersion;
    &nbs