I found my mistake: I didn't give the size of the buffer in variable bl. It now works.
Peace. Charl
Charl van Jaarsveldt wrote:
Hallo.
I have this little program to get te info of a certain ODBC entry n the registry, but it doesn't work and I am at a loss. I admit, I haven't done too much win32 stuff before. Any ideas and help would be appreciated.
Peace. Charl
Here is the program: (please see comments at the end)
Program RegTest01;
Uses Crt, windows;
Var key : HKEY; pt : array[0..80] of char; bl, ret : DWORD; s : string;
Begin If paramCount <> 1 Then Begin writeln( 'Usage:' ); writeln( ' ', paramstr( 0 ), ' <datasource name>' ); halt( 0 ); End; s := paramStr( 1 ); RegOpenKeyEx( HKEY_LOCAL_MACHINE, 'Software\ODBC\ODBC.INI\ODBC Data Sources', 0, KEY_QUERY_VALUE, key ); ret := RegQueryValueEx( key, @s[1], nil, nil, @pt, @bl ); RegCloseKey( key );
{Now, when the datasource is valid, bl = 0 and ret = 2 - not sure what the return value 2 means :-(
If the datasource IS valid, I get bl = size of the value (correctly) pt = '', and ret = 234 (ERROR_MORE_DATA)
I have tried with really BIG buffers and I get the same result}
writeln( 'pt = ', pt, ' bl = ', bl ); writeln( 'return: ', ret ); End.
_______________________________________________ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
