Fórum funcao que exiba o lugar que o executavel esta! existe? #167944
05/07/2003
0
seguinte preciso de alguma funçao q me retorne o lugar que o executavel esta..
ex: se mandei o executavel pra alguem e esse alguem salvo no c:\teste
eu precisava de alg7ma funçao q retornace o c:\teste
grato
Erva
Curtir tópico
+ 0Posts
05/07/2003
Acerqueira
GetCurrentDir
Gostei + 0
05/07/2003
Ruysalles
Gostei + 0
05/07/2003
Marcelo Carvalho
A dica acima funciona com aplicações desktop, mas não funciona com aplicações Web tipo ISAPI (.dll). Para este caso, use a função abaixo:
function Aplic: String; // Obtém o caminho e nome da aplicação (local do Windows do servidor, não http) // Funciona com CGI e ISAPI begin SetLength(Result, MAX_PATH+1); // Soma 1 para o caracter NULL GetModuleFileName(hInstance, PChar(Result), MAX_PATH+1); SetLength(Result, Length(PChar(Result))); end;
Se quiser só o caminho, use: ExtractFilePath(Aplic);
[][][][]
Marcelo.
Gostei + 0
06/07/2003
Cruz
Crie uma função:
Function GetFilePath(s:string):string; begin result:= ExtractFilePath(s); //s=nome do arquivo que vc quer o caminho end;
depois é só chamar assim:
var appPath: string; begin appPath:= GetFilePath(´meuprogram.exe´); end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)