Eu uso esta função em situação similar, funciona tanto para .exe quanto para
.dll, checando "IsLibrary", vc pode usar ou adaptar
Function GetCaminho : String;
Var path : array[0..200] of char;
Begin
if not IsLibrary then
Result := ExtractFilePath(ParamStr(0))
else
Begin
GetModuleFileName(hInstance,path,200);
result := ExtractFilePath(path);
end;
end;
[]s
----- Original Message -----
From: "Francisco Thiago" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, September 27, 2005 10:01 AM
Subject: [delphi-br] DLL ISAPI e Arquivos INI
> Caros amigos,
>
> Para guardar informações sobre a localização do banco de dados do meu
> servidor de aplicação, eu utilizo arquivos .INI para saber onde encontrar
o
> banco (tá, já sei, eu vou mudar para o registro. mas, mais tarde). Só que
eu
> estou encontrando um probleminha...
>
> Suponhamos que eu tenha um servidor de internet na minha empresa, e que os
> meus clientes "A" e "B" utilizam o mesmo sistema... Até aqui, tudo bem: Eu
> crio novo diretório virtual para esta empresa, coloco a dll lá e configuro
o
> Cliente para chamar a tal dll pela internet. Só que, apesar de estarem em
> diretórios diferentes, quando eu tento recuperar o Application.ExeName ele
> me retorna a pasta c:\windows\system32\inetsrv, que é a pasta onde ficam
os
> exe's do iis.
>
> Minha pergunta é:
>
> Como eu poderia fazer para que as DLL recuperassem o novo endereco do
banco,
> sem a necessidade de recompilar a DLL...
>
> Ou existe outra forma de recuperar a localização da dll? Algo como o
> diretório onde ela realmente está, ou a url pela qual ela está sendo
> chamada...
>
> Obrigado
>
>
>
> Francisco Thiago de Almeida
> Enter & Plug Informática
> Divisão: Desenvolvimento e Banco de dados
> Franca / SP
> msn: [EMAIL PROTECTED]
>
>
>
>
>
>
> _______________________________________________________
> Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
muito mais. Instale agora!
> www.yahoo.com.br/messenger/
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
>
>
--
<<<<< 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
<*> 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
