Ошибка при удалении...

[JRcoker]

function SysDir: string;
var S: array[0..MAX_PATH] of Char;
begin
  GetSystemDirectory(S,SizeOf(S));
  Result:=S;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if DeleteFile(SysDir+'666.txt') then
    ShowMessage('Файл успешно удален!')
  else
  ShowMessage('Ошибка!');
end;

Вроде всё зделал верно...А файл не удаляется и выводит ошибка...

[puporev]

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

[JRcoker]

То-есть не видно?..

DeleteFile(SysDir+'666.txt')

Это разве не удаление?...

[Манжосов Денис :)]

так зачем оператор if
тут идёт проверка, а не удаление.

[JRcoker]

Ой...Извеняюсь я глупость...Не досмотрел...

[Alter]

Вот так лучше(путь возвращаемый вашей функции не имел слеш в конце):

function GetSysDir:String;
мar
  WindirP :PChar;
  Res :Cardinal;
  S :string;
begin
  Result := '';
 WinDirP := StrAlloc(MAX_PATH);
 Res := GetSystemDirectory(WinDirP, MAX_PATH);
 if Res>0 then
 begin
   S := String(WinDirP);
  IF S[Length(S)]<>'\' then
  s := s + '\';
  Result := S;
 end;
 StrDispose(WinDirP);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if DeleteFile(GetSysDir+'666.txt') then
  ShowMessage('Удалён!')
 else
  ShowMessage('Ошибка!');
end;

[Arigato]

Alter
А память вернуть Вы забыли:
StrDispose (WinDirP);

[zetrix]

так зачем оператор if
тут идёт проверка, а не удаление.

что за... извините бред?

Ой...Извеняюсь я глупость...Не досмотрел...

не стоит быть таким доверчивым.

ошибка в коде. Ваша функция SysDir вернёт не то, что вы ожидаете... (например: C:\windows\system32 ) Пользуйтесь отладкой.

Не поняли? Слеш между SysDir и именем файла кто будет ставить?

строчку

if DeleteFile(SysDir+'666.txt') then

замените строкой

  if DeleteFile(SysDir+'\666.txt') then

[JRcoker]

Спасибо,спасибо конечно...Но про слешь я сам догнал буквально после того как тему создал...Извеняюсь если что....)))))