Где хранить id программы?

function ReplaceFileInformation(FileName: String; Section: WideString; wsValue: PWideChar): Boolean;
type
PLangAndCodePage = ^TLangAndCodePage;
TLangAndCodePage = packed record
wLanguage: Word;
wCodePage: Word;
end;
 
function MAKELANGID(sPrimaryLanguage : Word;
sSubLanguage : Word) : Word;
begin
result := (sSubLanguage shl 10) or
sPrimaryLanguage;
end;
 
var
Size, Unused: DWORD;
VerData: PByte;
Value: Pointer;
Len, VerLen, I: UINT;
Translate: PLangAndCodePage;
KeyName: WideString;
FileVersion: LPWSTR;
hUpdate: THandle;
begin
Result:= FALSE;
Size := GetFileVersionInfoSize(PChar(FileName), Unused);
if Size <> 0 then
begin
GetMem(VerData, Size);
try
if GetFileVersionInfo(PChar(FileName), 0, Size, VerData) then
begin
Value := nil;
Len := 0;
VerQueryValue(VerData, '\', Value, Len);
 
with PVSFixedFileInfo(Value)^ do
begin
dwFileVersionMS := MAKELONG(1, 1);
dwFileVersionLS := MAKELONG(1, 1);
end;
 
Value := nil;
Len := 0;
VerQueryValue(VerData, '\VarFileInfo\Translation', Value, Len);
 
Translate := PLangAndCodePage(Value);
for I := 0 to (Len div SizeOf(TLangAndCodePage)) - 1 do
begin
// Вместо FileVersion может быть любой другой параметр
KeyName := '\StringFileInfo\' + IntToHex(Translate^.wLanguage, 4) + IntToHex(Translate^.wCodePage, 4) + '\'+ Section;
 
Value := nil;
VerLen := 0;
if VerQueryValueW(VerData, PWideChar(KeyName), Value, VerLen) then
begin
FileVersion := PWideChar(Value);
ZeroMemory(FileVersion, VerLen * SizeOf(WideChar));
// Ниже меняем данные
wsprintfW(FileVersion, wsValue); // Вот тут меняем версию
end;
 
Inc(Translate);
end;
 
hUpdate := BeginUpdateResource(PChar(FileName), FALSE);
if hUpdate <> 0 then
begin
Result := UpdateResource(hUpdate,
RT_VERSION,
MAKEINTRESOURCE(VS_VERSION_INFO),
MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),
VerData,
Size);
EndUpdateResource(hUpdate, not Result);
end;
end;
finally
FreeMem(VerData);
end;
end;
end;

ReplaceFileInformation('D:\Work\Want2Vote\Free_Launcher\ver1\Project1.exe',
                              'FileVersion','123');