Fórum funcao que exiba o lugar que o executavel esta! existe? #167944

05/07/2003

0

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

Responder

Posts

05/07/2003

Acerqueira

Tente,

GetCurrentDir


Responder

Gostei + 0

05/07/2003

Ruysalles

ExtractFileName(Application.ExeName)


Responder

Gostei + 0

05/07/2003

Marcelo Carvalho

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.


Responder

Gostei + 0

06/07/2003

Cruz

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar