gostaria de saber como modificar o papel de parede

12/05/2003

1

como modificxar o papel de parede do windows via delphi?
e como modificar a página inicial do internet explorer?
Agradeço muito.


Responder

Posts

12/05/2003

Marcela

nunca tentei, não sei se funciona...

procedure ChangeWallpaper(bitmap: string);
var
pBitmap : pchar;
begin
bitmap:=bitmap+#0; {bitmap contém um arquivo *.bmp}
pBitmap:=@bitmap[1];
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap, SPIF_UPDATEINIFILE);
end;


Responder

12/05/2003

Marcela

procedure TForm1.Button1Click(Sender: TObject);
begin
IEApp := CreateOLEObject(´InternetExplorer.Application´);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(´http://www.ClubeDelphi.com.br´);
end;


Responder

12/05/2003

Wizard

Boa tarde,

Eu costumo fazer assim, deixando o usuário escolher que papel de parede usar.

** vc pode programar no click de um botão, por exemplo.

var
arq : textfile;
begin
if OpenPictureDialog1.Execute then
begin
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
AssignFile(arq,´C:\config.cfg´);
rewrite(arq);
write(arq,openpicturedialog1.filename);
closefile(arq);
end;
end;

Saudações

Wizard


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira