Artigos Delphi Dicas - Limpando menu Documentos

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;