Jump to content
GSForum - Segélyvonal

Háttérképet az asztalra, de hogyan?


Silent Psycho
 Share

Recommended Posts

Silent Psycho

Üdv mindenkinek!

 

1, Egy formon lévõ képet hogyan tudnék beállítani háttérképnek? :fal:

 

2, Hogyan tudnám az asztalon lévõ háttérkép elérési útját lekérdezni? :fal:

 

:pokolfajzat:

Link to comment
Share on other sites

  • 3 weeks later...
web

Az elsõ kérdésedet nem értem, de a másodikra a válasz talán értem a kérdésedet,

az nagyon egyszerû.

Start->beállítások->vezérlõpult->megjelenítés/és az Asztal fülre klikk!

Link to comment
Share on other sites

google

Én még ilyet nem csináltam, de azt hiszem, egy bizonyos rendszermappában van mindig az aktuális háttérkép. Ha igaz, akkor elég oda bemásolni. :hááát:

Link to comment
Share on other sites

TheSaurus

Magát a form képét, az egészet, vagy van rajta sok egyéb között egy kép, és azt? Bármivel lefényképezheted az aktuális képernyõt (IrfanView pl.), aztán a képernyõfotóval azt csinálsz, amit akarsz, nyújtod, átszínezed, kiteszed tapétának, az IrfanView ezt mind megcsinálja.

Link to comment
Share on other sites

google

Van egy olyan érzésem, hogy nem értitek a kérdést. :)

 

!Psycho! azt szeretné, ha lenne a programjában több kép, és talán egy gombra kattintás eseményeként beállítódna az aktuális háttérképnek, vagy talán még az éppen aktuális háttérkép is megjelenne a formon.

Erre mondtam, hogy mintha egy bizonyos rendszermappában lenne az éppen aktuális, és azt kell lecserélni. De ebben nem vagyok biztos.

Link to comment
Share on other sites

web

Igen!

Egy rendszer mappában van mindig az aktuális kép.

Egészen pontossan.

C:/dokumentum and Settings/felhasználónév pl. kis jani/Local settings/Application Data/Microsoft és ezen belül van egy Wallpaper1.gif nevû kép és oda teszi be a képeket.

Link to comment
Share on other sites

  • 2 weeks later...
Silent Psycho

:ötlet:

 

Megcsináltam! :D (bár kicsit kezdetleges, de mûködik)

 

 

Egy formon elhelyeztem egy image-t és két button-t. Az image-be betöltöttem egy jpg-t.

 

procedure TForm1.Button1Click(Sender: TObject);

var

pic1: tbitmap;

reg1: tregistry;

ini1: tinifile;

 

begin

pic1:= tbitmap.Create;

reg1:= tregistry.Create;

ini1:= tinifile.Create('C:\1.ini');

 

//image1 mentése bmp-be

 

try with pic1 do

begin

assign(image1.Picture.Graphic);

savetofile('C:\1.bmp');

end;

finally

pic1.Free;

end;

 

//az eredeti háttérkép elérési útjának kiolvasása a registry-bõl

 

try with reg1 do

begin

rootkey:= HKEY_CURRENT_USER;

if openkey('\Control Panel\Desktop\',false) then

caption:= readstring('Wallpaper');

end;

finally

reg1.Free;

end;

 

//az eredeti háttérkép elérési útjának mentése ini-be

 

try with ini1 do

begin

writestring('Orwllp','1',caption);

end;

finally

ini1.Free;

end;

 

//a fájlba kimentett kép betétele háttérnek, button1 letiltása

 

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar('C:\1.bmp'), SPIF_SENDWININICHANGE);

button1.Enabled:= false;

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

ini2: tinifile;

 

begin

ini2:= tinifile.Create('C:\1.ini');

 

//az eredeti háttérkép elérési útjának kiolvasása ini-bõl

 

try with ini2 do

begin

caption:= readstring('OrWllp','1','');

end;

finally

ini2.Free

end;

 

//az eredeti háttérkép visszarakása háttérnek, button1 engedélyezése

 

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(caption), SPIF_SENDWININICHANGE);

button1.Enabled:= true;

 

end;

 

 

:pokolfajzat:

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...