Delphi - problema al saber el directorio actual

 
Vista:

problema al saber el directorio actual

Publicado por hugo conde (10 intervenciones) el 31/01/2004 23:49:03
Tengo un problema al obtener el directorio actual donde se encuentra el archivo ejecutado. yo uso el siguiente código. Pero el problema está cuando el archivo se ejecuta desde un icono de acceso directo. en inicio/probramas/mi programa/programa.exe
entonces, la cadena devuelta es c:\ cuando realmente el archivo está ubicado en c:\programas\mi_programa.

gracias.

function GetCurrentDirectory: String;
var
nBufferLength : DWORD;
lpBuffer : PChar;
begin
nBufferLength := MAX_PATH + 1;
GetMem( lpBuffer, nBufferLength );
try
if Windows.GetCurrentDirectory( nBufferLength, lpBuffer ) > 0 then
Result := lpBuffer;
finally
FreeMem( lpBuffer );
end;
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema al saber el directorio actual

Publicado por Diego Romero (636 intervenciones) el 01/02/2004 15:31:18
Hay varias formas de obtener el dir actual del ejecutable, que no necesariamente tiene que ser el mismo donde está el .exe.
Prueba con ParamStr(0).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problema al saber el directorio actual

Publicado por Ana (1 intervención) el 02/02/2004 01:41:44
ExtractFilePath(ExpandFileName(ParamStr(0)))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar