Parent Directory - Como fazer
Enviado: 01 Fev 2007 16:36no 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 ....
Obrigado
Fui.
- 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.