как узнать, есть какие-то документы Пуск -> Документы

[Yurk@]

procedure TForm1.Button1Click(Sender: TObject);
var
  s : array[ 0..MAX_PATH ] of Char;
begin
  SHGetSpecialFolderPath(0, s, CSIDL_RECENT, False);
  ClearForlder(PChar(IncludeTrailingPathDelimiter(s)));
end;

[beegl]

а как вывести результат, что есть какие-то документы?
надо узнать количество файлов
эта запись не верна

procedure TForm1.Button2Click(Sender: TObject);
var
  s : array[ 0..MAX_PATH ] of Char;
  sr:TSearchRec;
begin
  SHGetSpecialFolderPath(0, s, CSIDL_RECENT, False);
  ClearForlder(PChar(IncludeTrailingPathDelimiter(s)));
  Edit1.Text :=  s;
  FindFirst(s,faDirectory or faAnyFile,sr);
  Form1.Memo1.Text:=sr.Name;
//CSIDL_TEMPLATES
//CSIDL_PERSONAL
end;
end.

[Yurk@]

примерно

function ClearForlder(Path: PChar; DoDel : boolean = False ) : integer;
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  Result := 0;
  try
    FindResult := FindFirst(Path + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
	if not ((Name = '.') OR (Name = '..')) then
  	begin
    	  if DoDel then
	    DeleteFile(Path + Name);
	  Result := Result + 1;
    	end;
           FindResult := FindNext(SearchRec);
        end;
    Finally
      FindClose(SearchRec);
    end;
  Finally
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s : array[0..MAX_PATH] of Char;
  i : integer;
begin
  SHGetSpecialFolderPath(0, s, CSIDL_RECENT, False);
  i := ClearForlder(PChar(IncludeTrailingPathDelimiter(s)), False);
  if MessageDlg('В каталоге '+s+' найдено '+ IntToStr(i)+' файлов'
    + #10 + 'Удалить их?', mtConfirmation, [mbYES, mbNO], 0) = mrYES then
    ClearForlder(PChar(IncludeTrailingPathDelimiter(s)), True);
end;

[beegl]

в списке всего один документ, а отображает:

procedure TForm1.Button2Click(Sender: TObject);
var
  s : array[0..MAX_PATH] of Char;
  i : integer;
begin
  SHGetSpecialFolderPath(0, s, CSIDL_RECENT, False);
  ClearForlder(PChar(IncludeTrailingPathDelimiter(s)));
  if MessageDlg('Â êàòàëîãå '+s+' íàéäåíî '+ IntToStr(i)+' ôàéëîâ'
    + #10 + 'Óäàëèòü èõ?', mtConfirmation, [mbYES, mbNO], 0) = mrYES then
    ClearForlder(PChar(IncludeTrailingPathDelimiter(s)));
//CSIDL_TEMPLATES
//CSIDL_PERSONAL
end;
end.

[Serge_Bliznykov]

beegl, если Вы не изменяли процедуру ClearForlder из пост #23,
то я лично никаких явных косяков не вижу...

попробуйте в отладчике пройтись, посмотреть, какие файлы (и где) находит данная процедура. Возьмите любой НОРМАЛЬНЫЙ файловый менеджер (FAR, например), зайдите в папку xxx..\wertwert\Recent - посмотрите, что там творится реально...



p.s. Имхо, у Windows свои понятия, какие файлы из данной папки Recent отображать, а какие - нет...