Página 1 de 1

Parent Directory - Como fazer

MensagemEnviado: 01 Fev 2007 16:36
por jeanfernandes
no Delphi 6.0 eu nao achei como pegar o diretorio pai de um determinado path...dai fiz essa m* ae....pelo menos funfa....quem tiver a funcao da API do windows direta passa ae ....


Código: Selecionar todos
procedure TFormPrincipal.btnDirUpClick(Sender: TObject);
var
   a,b : string;
  x : Pchar;
begin
   a := mDiretorios.LongDirName; // Diretorio de algum componente
  x := AnsiStrRScan(Pchar(a),'\');
   b := x;
  Delete(a,length(a) - length(b) + 1,length(b));
  if a[length(a)] = ':' then
     a := a + '\';
  if DirectoryExists(a) then
     mDiretorios.Directory := a; // Atribui novo diretorio (parent)
end;



Obrigado

Fui.