Com relacao a pergunta número 1:

use essa funcao:
JumpTo('geocities.yahoo.com.br/alcistemas');


procedure TFrm_Principal.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := 'http://' + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, 
SW_SHOWNORMAL);
end;

obs  na clausa uses  utilize ShellApi



----- Original Message ----- 
From: "Leonardo Lemos" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, October 21, 2005 3:30 PM
Subject: [delphi-br] Serviço abrir Iexplorer + Link!


Desenvolvi um serviço utilizando Delphi 5 o qual realiza diversas 
funcionalidades, porém estou precisando realizar 2 coisas que não estou 
conseguindo devido as limitações por ser um serviço:

1) Gostaria de saber como fazer para chamar o navegador padrão com uma url 
na maquina do cliente. Ja tentei usar o comando abaixo e ele não da erro 
porem não funciona:

ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOW);

2) Gostaria também de saber como armazenar em um TStringList todos as pastas 
de um determinado diretorio. Poderia fazer utilizando o componente do Delphi 
TDirectoryList porém por estar rodando como serviço esse componente não é 
permitido o seu uso. Já utilizo o SelectFiles para descobrir os arquivos de 
um determinado diretorio, porém só funciona com arquivos (pelo menos pelo 
que vi)

Obrigado pela atenção,




      Leonardo A. de Lemos
      Coordenador TI - Ipad
      Fone: (81) 2123.8500
      Celular: (81) 9133.9017



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos








        

        
                
_______________________________________________________ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a