Limpando o menu Documentos com algumas linhas de código
uses
Registry, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
fBuffer : array [0..3] of byte;
MyRegistry : TRegistry;
begin
//limpa o menu documentos na saída
fBuffer[0] := 1;
fBuffer[1] := 0;
fBuffer[2] := 0;
fBuffer[3] := 0;
MyRegistry := TRegistry.Create;
MyRegistry.RootKey := HKEY_CURRENT_USER;
MyRegistry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True);
MyRegistry.WriteBinaryData('ClearRecentDocsOnExit',fBuffer,4);
MyRegistry.CloseKey;
MyRegistry.Free;
end;