retornando o papel de parede....

31/08/2004

bom dia!!!!

alguem ai sabe alguma funcao ou comando que retorna o
papel de pared atual do vindows????

obrigado!!!


Alexandrezendron

Respostas

31/08/2004

Tatuweb

O código abaixo deve resolver.

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  s: string;
begin
  Reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKeyReadOnly (´Control Panel\Desktop´);
    s := Reg.ReadString (´Wallpaper´);
    if s = ´´ then
      ShowMessage (´Nenhum papel de parede definido´)
    else
      ShowMessage (s);
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;



Responder Citar