gostaria de saber como modificar o papel de parede
12/05/2003
0
como modificxar o papel de parede do windows via delphi?
e como modificar a página inicial do internet explorer?
Agradeço muito.
e como modificar a página inicial do internet explorer?
Agradeço muito.
Mineiro
Curtir tópico
+ 0
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;
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;
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
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
Clique aqui para fazer login e interagir na Comunidade :)
