(Resolvido) Pegar Letra da Unidade do Arquivo Executavel

[Eder]

Ola...

eu tenho este codigo:

procedure TForm1.XiButton1Click(Sender: TObject);
Var
CAMINHO : STRING;
begin
caminho := extractFilepath(application.ExeName)+'BDADOS';
SHOWMESSAGE(CAMINHO);
end;

ele me traz o caminho do executavel que vai ser extraido + BDADOS

ficando tipo assim:

Y:\PROGRAMA\BDADOS

mas eu gostaria que pegasse somente a Letra da Unidade(Y:\) + PROGRAMA\BDADOS

ficando assim igual:

Y:\PROGRAMA\BDADOS.

Eu queria que extraisse somente a LETRA DA UNIDADE e o resto eu adiciono na MÃO

valeu..Grato

[Churc]

Opa

Uses

SysUtils;

IncludeTrailingBackslash(extractfiledrive(Application.ExeName));

ExtractFileDrive(); Retorna a letra da unidade com ":"

IncludeTrailingBackSlash(); Adiciona a "\" ao final se não tiver

A função copy tambem pode ser utilizada

var

szDrive: String;

begin

szDrive := Copy(ExtractFilePath(Application.Exename), 1, 3);

abraços

[Eder]

valeu....Churc. :D

Grato, t+ ;)