Só para quem manja de Delphi..

Delphi

25/03/2003

Estou quebrando a cabeça enao estou conseguindo fazer..

Desenvolvi um programa com base de dados Inter Base, só que preciso colocar uma função que verifique se o IBServer esta sendo excutado ou não.. se ele nao estiver sendo executado, preciso executar ele, pois sem ele minha base de dados nao funciona..

Como posso fazer isso?

Obrigado,

Renato


Renatoricci

Renatoricci

Curtidas 0

Respostas

Dr. Kill

Dr. Kill

25/03/2003

Estou quebrando a cabeça enao estou conseguindo fazer.. Desenvolvi um programa com base de dados Inter Base, só que preciso colocar uma função que verifique se o IBServer esta sendo excutado ou não.. se ele nao estiver sendo executado, preciso executar ele, pois sem ele minha base de dados nao funciona.. Como posso fazer isso? Obrigado, Renato


Não seria mais fácil vc instalar o Guardian do interbase que inicia-se junto com o windows.


GOSTEI 0
Renatoricci

Renatoricci

25/03/2003

Poderia ser, mas..

Estou desenvolvendo um programa para usuário final, e já prevendo o seguinte..

Vamos supor que algum dia, por algum motivo, alguma razão, ou pelo fato de alguem mexer onde nao deve, o IbServer, ou o IbGuardian nao for carregado no inicio do Windows..

Ai o usuário vai tentar abrir o programa e como o interbase nao vai estar rodando, o programa tb nao vai funcionar..

Intendeu o meu ponto de vista?

Por isso que estou querendo fazer isso..

De qualquer maneira.. Obrigado..

Renato


GOSTEI 0
Rafael Heise

Rafael Heise

25/03/2003

existe um jeito de testar pra ver se um serviço do windows está rodando. eu já fiz isso . vou verificar onde está pq não me lembro de cabeça.. mas assim que eu achar eu mando pra você a resposta...
mas por favor. .não coloque mais títulos de mensagens como
´Só pra quem manja de delphi´
eu entrei por um acaso na sua mensagem pra ver o que tanta queria.....
vamos usar todos o bom senso e fazer daqui um verdadeiro fórum.. perguntas objetivas, respostas objetivas .....


GOSTEI 0
Renatoricci

Renatoricci

25/03/2003

Usei o titulo, pois queria filtrar quem realmente manja de Delphi, pois essa nao ´uma pergunta para qualquer um...

mas.. todo caso, nao usarei mais esse titulo..

Renato


GOSTEI 0
Anonymous

Anonymous

25/03/2003

vc pode fazer assim

procedure TForm1.AplicativosRodando;
const
MAX_WINDOW = 16364;
var
I : Integer;
PCaption : array[0..255] of char;
Achou : boolean;
begin
Achou := false;
for I:=1 to MAX_WINDOW do
begin
if((GetWindowText(I,PCaption,255)<>0)and
(GetWindowLong(I,GWL_EXSTYLE)<>0) and
(GetWindowLong(I,GWL_HWNDPARENT)=0)and
(GetWindowLong(I,GWL_HINSTANCE)<>0)) then
if not((IsWindowVisible(I))) then
if String(PCaption) = ´InterBase Server´ then
begin
ShowMessage(´Interbase Carregado´);
Achou := true;
break;
end;
end;
if not(Achou) then
WinExec(´C:\Arquivos de programas\Borland\InterBase\bin\ibguard.exe´, sw_show);


end;

Leandro

ICQ 128124370


GOSTEI 0
Hannah

Hannah

25/03/2003

Eu já fiz isso e fiz algo parecido com o que o amigo Leandro R descreveu..é bem semelhante..Mas o que mais me chamou a atenção é o título da sua mensagem...Então você queria filtrar quem realmente manja???? Bom, eu não manjo de Delphi..mas isso eu sabia...Acho que todo trabalho é válido ...vc pode saber uma coisa, outros, sabem outras coisas...
Vamos transformar o fórum num ambiente legal..


GOSTEI 0
POSTAR