funcao que exiba o lugar que o executavel esta! existe?

Delphi

05/07/2003

ae galera blzera?
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

Erva

Curtidas 0

Respostas

Acerqueira

Acerqueira

05/07/2003

Tente,

GetCurrentDir


GOSTEI 0
Ruysalles

Ruysalles

05/07/2003

ExtractFileName(Application.ExeName)


GOSTEI 0
Marcelo Carvalho

Marcelo Carvalho

05/07/2003

Oi,

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
Cruz

Cruz

05/07/2003

Visite: [url=http://ictec.kit.net]IC Tec Informática[/url]
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
POSTAR