удаление каталога

[Volkogriz]

Доброе время суток!
Программа оставляет лог с установленными файлами как по этому логу удалить установленные файлы с каталогами!?
Но инстолятор я написал, и в логе он сахраняет чтото типо этого:

DATA\3ddata\Textures\small.tga
DATA\3ddata\Textures\small0.tga
DATA\3ddata\Textures\small1.tga
DATA\3ddata\Textures\Standard.tga
DATA\MAPS\#100 Mount Irulan Revisited\!05%thumb.tga
DATA\MAPS\#100 Mount Irulan Revisited\Mount Irulan Revisited.txt
DATA\MAPS\#100 Mount Irulan Revisited\test.cpf
DATA\MAPS\#100 Mount Irulan Revisited\test.cpt
DATA\MAPS\#100 Mount Irulan Revisited\test.lit
DATA\MAPS\#100 Mount Irulan Revisited\test.xbf

До этого допёр!!!
А вот как его использовать при удоление не доходит!!(
Я пробовал создать стринг лист!
Но у меня не чего не получаеться!!!((
Вобщем ошибки и кстате всё время одну выдаёт :
Abstract Error "Абстрактная Ошибка"!
Если не трудно можно пример!!!
С уважением,
Volkogriz!

[KORN]

ну судя по всему у тя это относительно директории в которой находится прога, далее все просто

загружай в tstrings и далее в цикле
for i:=0 to s.count-1 do
begin
  if deletefile(extractfilepath(application.exename)+s.strings[i]) then
  // файл удален
  else
  // не удален
end;

[Volkogriz]

Огромное спасибо!

[Volkogriz]

У меня совсем не чего не выходит вылетает на постой ошибка!!!
Abstract Error "Абстрактная Ошибка"!
Как же всётаки правельно это зделать подскажите пожалуйсто!!!

var
i:integer;
begin
FilesDel:= TStringList.Create;
FilesDel.LoadFromFile(extractfilepath(application.exename)+'EmperorUni.log');
for i:=0 to FilesDel.count-1 do
begin
  if deletefile(extractfilepath(application.exename)+FilesDel.Strings[i]) then
 end;
end;

[KORN]

пробуй так

var
i:integer;
FilesDel: TStrings; // а переменную создавать кто будет7 вася пупкин7
begin
FilesDel:= TStringList.Create;
FilesDel.LoadFromFile(extractfilepath(application.exename)+'EmperorUni.log');

for i:=0 to FilesDel.count-1 do
deletefile(extractfilepath(application.exename)+FilesDel.Strings[i])  // зачем ставить условие если не пользуешься7

FilesDel.free; //а переменную уничтожать кто будет7 вася пупкин7
end;

[Volkogriz]

KORN
Прикинь заработало!!!
Спасибо Большое !!!))

[Volkogriz]

Вот ещё проблемка!!!
Исполняймый файл попал на диск C:\

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls: String;
   i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end else Result.Add(Path+Rec.Name);

     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
       end;
    end;

if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;
  FindClose(Rec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
c,i:integer;
begin
FilesDel:= TStringList.Create;
FilesDel.LoadFromFile(extractfilepath(application.exename)+'uni.log');
for i:=0 to FilesDel.count-1 do
deletefile(extractfilepath(application.exename)+FilesDel.Strings[i]);
for c:=0 to FilesDel.count-1 do
RemoveDirectory(Pchar(extractfilepath(application.exename)+FilesDel.Strings[c])) ;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
FilesDel:= TStringList.Create;
FilesDel.Assign(GetFiles(extractfilepath(application.exename)));
begin
FilesDel.SaveToFile(extractfilepath(application.exename)+'uni.log');
end;
end;
end.

Как от этого подстраховаться ?
P.S Пишу от соседа!!!

[KORN]

тогда делай что бы в лог записывался полный путь файла

или используй OpenDialog для открытия файла и извлекай из filename FilePAth