Как узнать перечень коротких имен системных папок

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,    Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var osvi: TOSVersionInfo;  si: TSystemInfo;
s:string;
dwResult, nsize: Cardinal;
ch : array[0..1000] of Char;
begin
GetComputerName(ch, nsize);
Label1.Caption:='Компьютер: '+ch;
GetUserName(ch, nsize);
Label2.Caption:='Пользователь: '+ch;
nSize := GetSystemDirectory(ch, MAX_PATH);
Label3.Caption:='System directory: '+ch;
nSize := GetWindowsDirectory(ch, MAX_PATH);
Label4.Caption:='Windows directory: '+ch;
Label5.Caption:='Переменные окружения :';
dwResult:= ExpandEnvironmentStrings('OS=%OS% ', ch, 500);
Label6.Caption:=ch;
dwResult:= ExpandEnvironmentStrings('INCLUDE=%INCLUDE%',ch,500);
Label7.Caption:=ch;
dwResult:= ExpandEnvironmentStrings('CLASSPATH=%CLASSPATH%',ch,500);
Label8.Caption:=ch;
dwResult := ExpandEnvironmentStrings('ComSpec=%ComSpec%',ch,500);
Label9.Caption:=ch;
osvi.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
GetVersionEx (osvi);
if (osvi.dwPlatformId = VER_PLATFORM_WIN32s) then
s:= 'Microsoft Win32s '+IntToStr(osvi.dwMajorVersion)+'.'+
IntToStr(osvi.dwMinorVersion) +' Build '+
IntToStr(osvi.dwBuildNumber);
if (osvi.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS)
then
s:= 'Microsoft Windows 95 '+IntToStr(osvi.dwMajorVersion)+'.'+
 IntToStr(osvi.dwMinorVersion) +' Build '+
IntToStr(osvi.dwBuildNumber);
if (osvi.dwPlatformId = VER_PLATFORM_WIN32_NT)
then
s:= 'Microsoft Windows NT '+IntToStr(osvi.dwMajorVersion)+'.'+
IntToStr(osvi.dwMinorVersion) +' Build '+
IntToStr(osvi.dwBuildNumber);
Label10.Caption:=' Операционная система: '+s;
end;
end.

function DeleteFiles(const FileMask : String) : Boolean;
var
SRec : TSearchRec;
Path : String;
begin
Result := FindFirst(FileMask, faAnyFile, SRec) = 0;
if not Result then
exit;
try
Path := ExtractFilePath(FileMask);
Repeat
if (SRec.Name <> '') and (SRec.Name  <> '.') and (SRec.Name <> '..') and
(SRec.Attr and (faVolumeID + faDirectory) = 0) then
 begin
 Result := DeleteFile(Path + SRec.Name);
 if not Result then
 break;
end;
 Until FindNext(SRec) <> 0;
 finally
FindClose(SRec);
end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
DeleteFiles('C:\zzzzz\*.doc');
end;
 
end.

function DeleteFiles(const FileMask : String) : Boolean;
var
  SRec : TSearchRec;
  Path : String;
begin
  Result := FindFirst(FileMask, faAnyFile, SRec) = 0;
  if not Result then
  exit;
try
  Path := ExtractFilePath(FileMask);
  Repeat
    if (SRec.Name <> '') and (SRec.Name  <> '.') and (SRec.Name <> '..') and
       (SRec.Attr and (faVolumeID + faDirectory) = 0) then
      begin
        Result := DeleteFile(Path + SRec.Name);
        if not Result then
          break;
      end;
  Until FindNext(SRec) <> 0;
finally
  FindClose(SRec);
end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var
  Mask: string;
  ch : array[0..1000] of Char;
begin
  Mask := '%SYSTEMDRIVE%\Docume~1\%USERNAME%\Рабочий стол\Новая папка\*.*';
  ExpandEnvironmentStrings(PChar(Mask), ch, 500);
  DeleteFiles(ch);
end;