[Nyctos Kasignete]

Используйте функцию GetFullPathName для получения полного пути.

Код:

var
  FullName: array[0..MAX_PATH - 1] of Char;
  FNameAddr: PChar;
begin
  GetFullPathName(PChar(ParamStr(1)), MAX_PATH, FullName, FNameAddr);
  Label.Caption := StrPas(FullName);
end;