Allen 2009-12-22 14:53:42 13160 1 0 0 0

---

　　有时我们需要在程序运行是知道当前是什么版本，当然查程序文件的属性也只可以看到，但这样太麻烦了。

//要在uses中添加引用单元：Version;

 

procedure TForm1.FormSet;

var

  pVer : tVersion;

begin

 

    pVer := Tversion.Create(ParamStr(0));

    x_pVerNo := pVer.FileVersion;

    x_pProgramName := pVer.InternalName;

    x_pComments := pVer.FileDescription;

    pVer.Free;

 

end;

【版權聲明】
本文爲原創，遵循CC 4.0 BY-SA版權協議！轉載時請附上原文鏈接及本聲明。
原文鏈接：https://tdlib.com/am.php?t=keknuendf5nw Tag: Delphi技巧 TTTBLOG

評論

相關內容

歡迎評論