retornando o papel de parede....

31/08/2004

0

bom dia!!!!

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

obrigado!!!


Alexandrezendron

Alexandrezendron

Responder

Posts

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar