Olá,,, b. Tarde a todos
Consegui colocar em serviço o MYSQL através da função
function ServiceStart(ServiceName: string) : boolean;
mas na hora de parar o serviço pela função
function ServiceStop(sMachine,sService: string ) : boolean;
o aplicativo trava, e só consigo fechá-lo pelas tecla Cntrl+Alt+Del.
O aplicativo é encerrado e o serviço do MYSQL também.
Como resolver ?
Abaixo segue a função:
{Parar o MySQL}
function ServiceStop(sMachine,sService: string ) : boolean;
var
schm,
schs : SC_Handle;
ss : TServiceStatus;
dwChkP : DWord;
begin
schm := OpenSCManager(PChar(sMachine),Nil,SC_MANAGER_CONNECT);
if(schm > 0)then
begin
schs := OpenService(schm,PChar(sService),SERVICE_STOP or
SERVICE_QUERY_STATUS);
if (schs > 0)then
begin
if (ControlService(schs,SERVICE_CONTROL_STOP,ss))then
begin
if (QueryServiceStatus(schs,ss)) then
begin
while (SERVICE_STOPPED <> ss.dwCurrentState) do
begin
dwChkP := ss.dwCheckPoint;
Sleep(ss.dwWaitHint);
if (not QueryServiceStatus(schs,ss)) then
begin
break;
end;
if (ss.dwCheckPoint < dwChkP) then
begin
break;
end;
end;
end;
end;
CloseServiceHandle(schs);
end;
CloseServiceHandle(schm);
end;
Result := SERVICE_STOPPED = ss.dwCurrentState;
end;
Abçs a todos
Henrique
WebSistemas
S.Paulo,SP
----- Original Message -----
From: Bollasette
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 02, 2008 3:34 AM
Subject: Re: [delphi-br] Colocar o MySqL em serviço
A/C Alexandre, grato, vou à luta.
Abçs, Henrique
----- Original Message -----
From: Alexandre Rodrigues
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 02, 2008 2:03 AM
Subject: Re: [delphi-br] Colocar o MySqL em serviço
Aqui mostra como matar um processo, talvez seja um caminho.
http://cc.codegear.com/Item/24320
Bollasette escreveu:
>
>
> A/C Alexandre Rodrigues,
>
> Em Ferramentas Administrativas tem opções de inicialização do MYSQL
> Automático, manual e desativar.
>
> Como fazer isso pelo D7 ?
>
> ABçs, Henrique
>
> ----- Original Message -----
> From: Alexandre Rodrigues
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, July 01, 2008 12:57 PM
> Subject: Re: [delphi-br] Colocar o MySqL em serviço
>
> Como assim colocar ele a rodar como serviço? Isso tu define na
> instalação do MySQL.
>
> Bollasette escreveu:
> >
> >
> > Olá,,, B.dia a todos,,,
> >
> > Meus amigos, gostaria d saber se há como colocar o MySQL
> > em serviço de dentro do D7 ?
> >
> > Uma função, uma procedure ?
> >
> > Chequei esta propriedade //ServiceStartName
> > mas é da CLasse (TService).
> >
> > Obrigados a todos,
> >
> > Henrique
> > WebSistemas
> > S.Paulo,SP
> >
> >
>
> _______________________________________________________
> Yahoo! Mail - Sempre a melhor opção para você!
> Experimente já e veja as novidades.
> http://br.yahoo.com/mailbeta/tudonovo/
> <http://br.yahoo.com/mailbeta/tudonovo/>
>
> ----------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG.
> Version: 8.0.101 / Virus Database: 270.4.3/1528 - Release Date:
> 01-07-2008 07:26
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
----------------------------------------------------------
No virus found in this incoming message.
Checked by AVG.
Version: 8.0.101 / Virus Database: 270.4.3/1528 - Release Date: 01-07-2008
07:26
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG.
Version: 8.0.101 / Virus Database: 270.4.3/1528 - Release Date: 01-07-2008
07:26
[As partes desta mensagem que não continham texto foram removidas]
