Check whether an ODBC entry exists: Difference between revisions
From NSIS Wiki
Jump to navigationJump to search
m (Updated author and download links, and changed format of some pages.) |
m (Updated author links.) |
||
Line 1: | Line 1: | ||
{|align=right | |||
|<small>Author: [[{{ns:2}}:preisl|preisl]] ([[{{ns:3}}:preisl|talk]], [[{{ns:-1}}:Contributions/preisl|contrib]])</small> | |||
|} | |||
<br style="clear:both;"> | |||
== The Function == | == The Function == | ||
<highlight-nsis> | <highlight-nsis> | ||
Line 51: | Line 55: | ||
FunctionEnd | FunctionEnd | ||
</highlight-nsis> | </highlight-nsis> | ||
Revision as of 23:14, 29 April 2005
Author: preisl (talk, contrib) |
The Function
; ; Check whether an ODBC entry exists or not ; ; Input: Name of the ODBC entry ; Output: TRUE, FALSE ; ; Usage ; ; Push "MyODBCEntry" ; Call ODBCEntryExists ; Pop "$1" ; MessageBox MB_OK|MB_ICONINFORMATION "ODBC entry 'MyODBCEntry' exists: $1" ; !macro ODBCEntryExistsMacro ; Clear all errors at the beginning ClearErrors ; Pop the name of the ODBC entry from the stack Exch $R0 IfErrors InvalidParameter CheckODBCEntry InvalidParameter: MessageBox MB_OK|MB_ICONEXCLAMATION "ODBCEntryExists: Please push the name of the ODBC entry first." StrCpy $R0 "FALSE" Goto Done CheckODBCEntry: ClearErrors ReadRegStr $R0 HKEY_LOCAL_MACHINE "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources" "$R0" IfErrors NotFound Found NotFound: StrCpy $R0 "FALSE" Goto Done Found: StrCpy $R0 "TRUE" Goto Done Done: Exch $R0 !macroend Function ODBCEntryExists !insertmacro ODBCEntryExistsMacro FunctionEnd Function un.ODBCEntryExists !insertmacro ODBCEntryExistsMacro FunctionEnd