problema al saber el directorio actual

[soyhugo]

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;