Array
(
)

retornando o papel de parede....

Alexandrezendron
   - 31 ago 2004

bom dia!!!!

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

obrigado!!!


Tatuweb
   - 31 ago 2004

O código abaixo deve resolver.

#Código

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;