retornando o papel de parede....
bom dia!!!!
alguem ai sabe alguma funcao ou comando que retorna o
papel de pared atual do vindows????
obrigado!!!
alguem ai sabe alguma funcao ou comando que retorna o
papel de pared atual do vindows????
obrigado!!!
Alexandrezendron
Curtidas 0
Respostas
Tatuweb
31/08/2004
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;
GOSTEI 0