Hola
Es lo mismo que se puede hacer con
ExtractFilePath
Como son datos string se pueden manejar a nuestro antojo:
Código Delphi
[-]
var
programa : string;
begin
programa:= ExtractFilePath(Application.ExeName);
ShowMessage(programa+'Data\');
Y asi sucesivamente.
Saludos