Jump to content
Fórum Script Brasil
  • 0

Pegar caminho da imagem usada no desktop


lucke
 Share

Question

Olá a todos!

Estou com esta duvida.Pesquisei no Google e não achei.Achei apenas sobre como alterar papel de parede, e eu não quero isso.Somente quero pegar o caminho da imagem usada como papel de parede, e joga-lo num edit, ou campo de texto.

alguém me da uma luz?

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: Tregistry;
  S: string;
begin
  Reg:=Tregistry.create;
  with Reg do
  begin
    rootkey := HKEY_CURRENT_USER;
    If Openkey('Control Panel\Desktop\',false) then
       s := ReadString('Wallpaper')
    else
       showmessage('Registro não encontrado');
    closekey;
  end;
  showmessage('caminho da imagem = ' + s);

// VEJA SE O CAMINHO NO SEU MICRO É ASSIM

// Registro HKEY_CURRENT_USER
// Control Panel\Desktop
// Wallpaper (REG_SZ)

end;

abraço

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...