Системный путь

[Vampir]

Люди помагите пожалуйста с кодом нада чтоб путь к системной папке WINDOWS не надо было указывать...Как исправить этот код?


if DeleteFile('2.txt') then
ShowMessage('Файл успешно удален!')
else
ShowMessage('Ошибка!'+IntToStr(GetL astError));

[SunKnight]

var 
  Windir: string;
  WindirP: PChar;
  Res: Cardinal;
begin
WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then
    WinDir := StrPas(WinDirP);
   if DeleteFile(WinDir+'\2.txt') then
   ShowMessage('Файл успешно удален!')
   else
   ShowMessage('Ошибка!'+IntToStr(GetLastError));