Verificar se o MySQL está presente...

[Elvio.Tchê]

Gostaria de uma dica para verificar se o MySQL está presente no sistema e, posteriormente, o Banco de Dados (talvez suas tabelas também) e enviar uma "mensagemamigável" ao usuário.

Só para evitar as mensagems de erro de sistema em inglês, tornando o programa um pouco mais profissional.

Grato,

Elvio.

[Jhonas]

exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ZConnection;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ZConnection1: TZConnection;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Tlhelp32;

function ProcessoExiste(ExeFileName: string): boolean;
const
   PROCESS_TERMINATE=$0001;
var
   ContinueLoop: BOOL;
   FSnapshotHandle: THandle;
   FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32};
begin
   result := false;

   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
   ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

   while integer(ContinueLoop) <> 0 do
   begin
      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))
      or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
      begin
         Result := true;
         exit;
      end;
      ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
   end;
   CloseHandle(FSnapshotHandle);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   if ProcessoExiste('mysqld.exe') then
      ShowMessage('Serviço do MYSQL encontrado')
   else
      ShowMessage('Serviço do MYSQL não encontrado');
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
    if ZConnection1.Connected = true then
       ShowMessage('Banco de dados Conectado')
    else
       if MessageDlg('Banco de dados Desconectado!'+#13+#13+
          'Deseja conectar o Banco Agora ?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then
              begin
                 ZConnection1.Connect;
                 ShowMessage('Banco de dados Conectado');
              end;
end;

end.

abraço