S� para quem manja de Delphi..

Question

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.. s...

Dr. Kill · Answer

[quote:60d5fca03a=�RenatoRicci�]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[/quote:60d5fca03a]N�o seria mais f�cil vc instalar o Guardian do interbase que inicia-se junto com o windows....

Renatoricci · Answer

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

Rafael Heise · Answer

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 .....

Renatoricci · Answer

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...

Anonymous · Answer

vc pode fazer assimprocedure 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 programasBorlandInterBasebinibguard.exe�, sw_show);end;LeandroICQ 128124370...

Hannah · Answer

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..

F�rum S� para quem manja de Delphi.. #149454