 ::  |
| Autor |
Poruka |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Postoji više načina da bi se promenila pozadina desktopa direktno iz koda.
I nacin:
| Code: |
uses
Registry;
procedure SetWallpaper(sWallPaperBMPPath: string; bTile: Boolean);
var
reg: TRegIniFile;
begin
reg := TRegIniFile.Create('Control Panel\Desktop');
try
with reg do
begin
WriteString('', 'Wallpaper', sWallPaperBMPPath);
WriteString('', 'TileWallpaper', IntToStr(Ord(bTile)));
end;
finally
reg.Free;
end;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;
|
II način:
| Code: |
procedure TForm1.Button1Click(Sender: TObject);
var
sWallPaperBMPPath: string;
begin
sWallPaperBMPPath := 'C:\[WinDIR]\wall.bmp';
if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(sWallPaperBMPPath),
SPIF_SENDWININICHANGE) then
ShowMessage('Succesful.')
else
ShowMessage('Failed!');
end;
|
III način – Postavljanje pozadine Aktivnog Desktopa
Morate znati da korišćenje SystemParametersInfo za promenu pozadine kada je uključen ActiveDesktop NEĆE raditi. Razlog je što morate koristiti IactiveDestopCOM interfejs. Korišćenje SystemParametersInfo u načelu će raditi i u ovom slučaju ali bez efekta. Problem je samo što će ignorisati vaš zahtev za promenu slike u pozadini. Ovaj kod zahteva Internet Explorer 4.0 ili noviji.
| Code: |
uses
ShlObj, ComObj;
function ChangeWallpaper(aFile: String): Boolean;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
hObj: IUnknown;
ADesktop: IActiveDesktop;
str: string;
wstr: PWideChar;
begin
hObj := CreateComObject(CLSID_ActiveDesktop);
ADesktop := hObj as IActiveDesktop;
wstr := AllocMem(MAX_PATH);
try
StringToWideChar(aFile, wstr, MAX_PATH);
ADesktop.SetWallpaper(wstr, 0);
ADesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
finally
FreeMem(wstr);
end;
end;
|
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
 |
|
| |
|
 |
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
