//---------------------------------------------------------------------------
UnicodeString FmtLoadStr(intptr_t Id, ...)
{
UnicodeString Result(64, 0);
wchar_t Format[1024];
HINSTANCE hInstance = GetGlobalFunctions()->GetInstanceHandle();
intptr_t Length = ::LoadString(hInstance, static_cast<UINT>(Id),
Format, static_cast<int>(sizeof(Format)));
if (!Length)
{
DEBUG_PRINTF(L"Unknown resource string id: %d\n", Id);
}
else
{
va_list Args;
va_start(Args, Id);
intptr_t Len = _vscwprintf(Format, Args);
Result.SetLength(Len + sizeof(wchar_t));
vswprintf_s(&Result[1], Result.Length(), Format, Args);
va_end(Args);
}
return Result;
}
UnicodeString GetCurrentDir()
{
UnicodeString Result = GetGlobalFunctions()->GetCurrentDirectory();
return Result;
}
uintptr_t inline GetCurrentVersionNumber() { return StrToVersionNumber(GetGlobalFunctions()->GetStrVersionNumber()); }
