Непонятное поведение программы на Delphi

[Kashp]

Имеется exe-шник и файл *.ini.
В ini-файле прописан путь. При запуске ехе-шника происходит удаление папки (указанной в ini файле) со всеми директориями и файлами.
У меня все отлично работает, а вот на компе товарища не хочет! У обоих Win_XP SP-2. В чем же дело?

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    Function MyRemoveDir(sDir : String) : Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Left:=-500;
end;


//функция удаления папки со всеми файлами и папками
function TForm1.MyRemoveDir(sDir: String): Boolean;
var
 iIndex : Integer;
 SearchRec : TSearchRec;
 sFileName : String;
begin
Result := False;
sDir := sDir + '\*.*';
iIndex := FindFirst(sDir, faAnyFile, SearchRec);
while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
if SearchRec.Attr = faDirectory then begin
if (SearchRec.Name <> '' ) and
(SearchRec.Name <> '.') and
(SearchRec.Name <> '..') then
MyRemoveDir(sFileName);
end else begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
if NOT DeleteFile(sFileName) then
Form1.Close;
end;
iIndex := FindNext(SearchRec);
end;
FindClose(SearchRec);
RemoveDir(ExtractFileDir(sDir));
Result := True
end;


procedure TForm1.FormShow(Sender: TObject);
var
 f: TStrings;
 s: string;
begin
 ShowWindow(Handle,SW_HIDE);
 ShowWindow(Application.Handle,SW_HIDE);
 f:=TStringList.Create();
 f.LoadFromFile('dir.ini');
 s:=f.Strings[0];
 if DirectoryExists(s) then
 MyRemoveDir(s); // если папка есть, то удаляем ее
 if not DirectoryExists(s) then //там же создаем пустую папку
 CreateDir(s);
 f.Free;
 Form1.Close;
end;

end.

[Gauss]

Думаю может путь там другой, поэтому.

[Kashp]

Сообщение от Gauss

Думаю может путь там другой, поэтому.

Нет, с путями все правильно.

[Sibedir]

Антизверь?

[Kashp]

Сообщение от Sibedir

Антизверь?

хм.. не понял, что ты имеешь в виду?

[Sibedir]

всмысле - антивирус

[Kashp]

Сообщение от Sibedir

всмысле - антивирус

ааа, не, отключали его, все равно не работает у него

[mihali4]

Что-то не верится, что она и у вас-то работает...
Ведь у вас в ней бесконечный рекурсивный вызов вашей функции организован...

[Kashp]

Сообщение от mihali4

Что-то не верится, что она и у вас-то работает...
Ведь у вас в ней бесконечный рекурсивный вызов вашей функции организован...

Клянусь, у меня работает!
Ну тогда напишите пожалуйста функцию, которая будет удалять всё из папки (и файлы и папки).

[mihali4]

Сообщение от Kashp

Клянусь, у меня работает!
Ну тогда напишите пожалуйста функцию, которая будет удалять всё из папки (и файлы и папки).

3 варианта:
http://www.programmersclub.ru/files/dfaq.rar