8
#define ININAME "leash.ini"
10
int VScheckVersion(HWND hWnd, HANDLE hThisInstance)
24
GLOBALHANDLE hVersionInfo;
29
GetModuleFileName(hThisInstance, (LPSTR)szFilename, 255);
30
size = GetFileVersionInfoSize((LPSTR) szFilename, &hVersionInfoID);
31
hVersionInfo = GlobalAlloc(GHND, size);
32
lpVersionInfo = GlobalLock(hVersionInfo);
33
retval = GetFileVersionInfo(szFilename, hVersionInfoID, size,
35
retval = VerQueryValue(lpVersionInfo, "\\VarFileInfo\\Translation",
36
(LPSTR FAR *)&lpLangInfo, &dumint);
37
wsprintf(szVerQ, "\\StringFileInfo\\%04x%04x\\",
38
LOWORD(*lpLangInfo), HIWORD(*lpLangInfo));
39
cp = szVerQ + lstrlen(szVerQ);
40
lstrcpy(cp, "ProductName");
41
retval = VerQueryValue(lpVersionInfo, szVerQ, &lpAppName, &dumint);
42
lstrcpy(cp, "ProductVersion");
44
retval = VerQueryValue(lpVersionInfo, szVerQ, &lpAppVersion, &dumint);
45
hcursor = SetCursor(LoadCursor((HINSTANCE)NULL, IDC_WAIT));
46
vrequest = VSFormRequest(lpAppName, lpAppVersion, ININAME, NULL, hWnd,
48
if ((ok_to_continue = (ReqStatus(vrequest) != V_E_CANCEL))
49
&& v_complain((status = VSProcessRequest(vrequest)), ININAME))
50
WinVSReportRequest(vrequest, hWnd, "Version Server Status Report");
51
if (ok_to_continue && status == V_REQUIRED)
52
ok_to_continue = FALSE;
53
VSDestroyRequest(vrequest);
55
GlobalUnlock(hVersionInfo);
56
GlobalFree(hVersionInfo);
57
return(ok_to_continue);
60
int VScheckVersion(HWND hWnd, HANDLE hThisInstance)