Tente assim.... Mapeando uma Unidade
Winexec ( pchar( 'net use <Unidade> \\dados\sef /USER:<USuario> <senha>
) , SW_HIDE );
Onde Unidade é a Letra da Unidade. Exemplo : F:
Usuario = nome do Usuario na rede e a senha a senha do Usuario que vc
esta usandp para conectar ....segue o comando inteiro
Winexec ( pchar( 'net use F: \\dados\sef /USER:Administrador 123456 )
, SW_HIDE );
ai vc verifica
if FileExists('F:\teste.exe') then
Espero ter ajudado...
Wesley
----- Original Message -----
From: Edu Nicácio
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 03, 2007 3:08 PM
Subject: Re: [delphi-br] Forçar Autenticação na Rede
Dê uma procurada pelo comando NET SHARE no help do Windows.
Você pode usar um script de inicialização, que, quando executado, mapeia os
diretórios remotos em unidades locais, utilizando usuário e senha.
Simples assim.
Abraço.
----------------------------------------------------------
Atenciosamente:
Eduardo Cláudio Nicácio
Analista de Sistemas Pleno
Fábrica 02 - CTIS
Tel.: (11) 3150-6841
[EMAIL PROTECTED]
----- Original Message -----
From: Anderson Furtilho
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 03, 2007 10:36 AM
Subject: [delphi-br] Forçar Autenticação na Rede
Saudações amigos da lista!
Amigos, atualmente eu faço assim
if FileExists('\\dados\sef\teste.exe') then
;
Caso o usuario ja tenha entrado no windows explorer acessado esta pasta e
digitado seu usuario e senha
ai funciona legal.
Mas quando o usuario liga o computador e ja roda meu programa o comando assim
nao funfa, pois ainda
nao foi digitado o usuario e senha para abrir a conexão nesta pasta.
Existe uma forma de forçar o usuario a se conectar nesta pasta acima e
digitar seu usuario e senha ?
Se algum amigo ja passou por este problema puder dar uma dica, ficarei
agradecido!
Um forte abraço a todos
Anderson
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.484 / Virus Database: 269.13.3/986 - Release Date: 3/9/2007 09:31
[As partes desta mensagem que não continham texto foram removidas]
