trayicon 的例子我给你mail了,delphi 的。
下面的函数可以得到你当前程序的详细版本号码。可以显示在about中，显得很职业的。
何日何时的你可能只能看文件日期了，不过这个不准。
// Designed By Puzzle 2000/09/12
// fn 文件名称，通常是 Application.ExeName;
// ma,mi,r,b 分别对应主版本号，次版本，发布编号，和build号
// e.g. 1.0.2.143 其中ma=1,mi=0,r=2,b=143
// 需要包含 windows,ShellAPI 单元。
function GetFileVersion(fn: string; var ma, mi, r ,b: integer):boolean;
var
buf, p: pChar;
sver: ^VS_FIXEDFILEINFO
i: LongWord;
begin
i:= GetFileVersionInfoSize(pchar(fn), i);
new(sver);
p:= pchar(sver);
GetMem(buf, i);
ZeroMemory(buf, i);
result:= false;
if GetFileVersionInfo(pchar(fn), 0, 4096, pointer(buf)) then
if VerQueryValue(buf, '/', pointer(sver), i) then begin
ma:= sVer^.dwFileVersionMS shr 16;
mi:= sver^.dwFileVersionMS and $0000ffff;
r:= sver^.dwFileVersionLS shr 16;
b:= sver^.dwFileVersionLS and $0000ffff;
result:= true;
end;
Dispose(p);
FreeMem(buf);
end;
