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!!!
alguem ai sabe alguma funcao ou comando que retorna o
papel de pared atual do vindows????
obrigado!!!
Alexandrezendron
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)