Cita:
Empezado por seoane
¿Y ahora que Roman?
|
Se me ocurre que podríamos hacerlo vía el registro:
Código Delphi
[-]
procedure GetMySqlInstalledServers(Versions: TStrings);
const
hkMySql = '\SOFTWARE\MySQL AB\';
var
Registry: TRegistry;
KeyNames: TStringList;
I: Integer;
begin
Registry := TRegistry.Create;
KeyNames := TStringList.Create;
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
if Registry.KeyExists(hkMySql) then
begin
Registry.OpenKeyReadOnly(hkMySql);
Registry.GetKeyNames(KeyNames);
for I := 0 to Pred(KeyNames.Count) do
if AnsiStartsStr('mysql server', LowerCase(KeyNames[i])) then
begin
Registry.CloseKey;
Registry.OpenKeyReadOnly(hkMySql + KeyNames[i]);
Versions.Add(Registry.ReadString('Version'));
Registry.CloseKey;
Registry.OpenKeyReadOnly(hkMySql);
end;
Registry.CloseKey;
end;
finally
Registry.Free;
KeyNames.Free;
end;
end;
// Saludos