I am trying to detect the quicktime version a user has on their PC. I am using the following code:
prototype DetectQuicktime ();
function DetectQuicktime ()
STRING svPath, svVersionNumber, szFileName;
STRING TempSTRING, RetvalSTRING;
NUMBER nvSize, nvType, Retval;
begin
nvType = REGDB_STRING;
nvSize = -1;
RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
RegDBGetKeyValueEx ( "SOFTWARE\\Apple Computer, Inc.\\QuickTime" , "InstallDir", nvType, svPath, nvSize);
szFileName = "QuickTimePlayer.exe";
Retval = VerFindFileVersion (szFileName, svPath, svVersionNumber);
NumToStr (RetvalSTRING, Retval);
TempSTRING = "Version: " + svVersionNumber + "\nLocation: " + svPath + "\\" + szFileName + "\nFunction Return: " + RetvalSTRING;
MessageBox(TempSTRING, INFORMATION);
return(0);
end;
I keep getting a -2 return from the function which means the file was not found but, that path is correct. Anyone run into this problem before? LMK.
-alocurto
prototype DetectQuicktime ();
function DetectQuicktime ()
STRING svPath, svVersionNumber, szFileName;
STRING TempSTRING, RetvalSTRING;
NUMBER nvSize, nvType, Retval;
begin
nvType = REGDB_STRING;
nvSize = -1;
RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
RegDBGetKeyValueEx ( "SOFTWARE\\Apple Computer, Inc.\\QuickTime" , "InstallDir", nvType, svPath, nvSize);
szFileName = "QuickTimePlayer.exe";
Retval = VerFindFileVersion (szFileName, svPath, svVersionNumber);
NumToStr (RetvalSTRING, Retval);
TempSTRING = "Version: " + svVersionNumber + "\nLocation: " + svPath + "\\" + szFileName + "\nFunction Return: " + RetvalSTRING;
MessageBox(TempSTRING, INFORMATION);
return(0);
end;
I keep getting a -2 return from the function which means the file was not found but, that path is correct. Anyone run into this problem before? LMK.
-alocurto