eddoc
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: function TForm1.FindFBDir: string;
var RegKey: TRegistry;
begin
Result:= '';
RegKey:= TRegistry.Create;
try
with RegKey do
begin
RootKey:= HKEY_LOCAL_MACHINE;
if KeyExists('SOFTWARE\Firebird Project\Firebird Server\Instances')
then
begin
OpenKeyReadOnly('SOFTWARE\Firebird Project\Firebird Server\Instances');
if ValueExists('DefaultInstance')
then
Result:= ReadString('DefaultInstance')
end;
end;
finally
RegKey.Free;
end; |
|
Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 23:50 04-09-2012 | Исправлено: eddoc, 23:56 04-09-2012 |
|
