Смена обоев рабочего стола.

программно сменить картинку на рабочем столе.

06 сен 2001 (четверг), 09:36:30
захотел программно сменить картинку на рабочем столе. Обои
т.е... я залез в реестр изменил нужную строку. Все нормально. в
реестре изменилось. Но сам виндовс не обновился. Т.е картинка не
сменилась. Потом, когда я запускаю какуюнить игру, она меняется. А так
нет. Как мне обновить виндовс? перерисовать чтоли.
Ответить.
Ответ 1:
Вот так:
Procedure TForm1.FormCreate(SEnder: TObject);
var
St : string;
Begin
St := 'C:\MyWallPaper.Bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPE R,UINT(St),nil,SPIF_SEndCHANGE);
End;
Ответ 2:
Попробуй покапаться с АПИ - SystemParametersInfo
или вот тебе компонент:
unit Walpaper;
interface
uses
{$IFDEF WIN32} Windows, RegisTry, {$Else} WinTypes, WinProcs, IniFiles, {$EndIF}
Classes, Controls, SysUtils;
Type
TWallPaper = class(TComponent)
Private
PC: Array[0..$FF] of Char;
{$IFDEF WIN32}
Reg: TRegisTry;
{$Else}
Reg: TIniFile;
WinIniPath: string;
{$EndIF}
Function GetWallpaper: string;
Procedure SetWallpaper(Value: string);
Function GetTile: Boolean;
Procedure SetTile(Value: Boolean);
Function GetStretch: Boolean;
Procedure SetStretch(Value: Boolean);
protected
{$IFNDEF WIN32}
Constructor Create(aOwner: TComponent); override;
{$EndIF}
Public
published
Property Wallpaper: string read GetWallpaper write SetWallpaper;
Property Tile: Boolean read GetTile write SetTile;
Property Stretch: Boolean read GetStretch write SetStretch;
End;
Procedure Register;
implementation
{$IFNDEF WIN32}
Constructor TWallpaper.Create(aOwner: TComponent);
Begin
inherited Create(aOwner);
GetWindowsDirectory(PC, $FF);
WinIniPath := StrPas(PC) + '\WIN.INI';
End;
{$EndIF}
Function TWallpaper.GetWallpaper: string;
Begin
{$IFDEF WIN32}
Reg := TRegisTry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\desktop\', False);
Result := Reg.Readstring('Wallpaper');
Reg.Free;
{$Else}
Reg := TIniFile.Create(WinIniPath);
Result := Reg.Readstring('Desktop', 'Wallpaper', '');
Reg.Free;
{$EndIF}
End;
Procedure TWallpaper.SetWallpaper(Value: string);
Begin
If not (csDesigning in ComponentState) and
not (csLoading in ComponentState) and
not (csReading in ComponentState) Then
Begin
StrPCopy(PC, Value);
SystemParametersInfo(spi_SetDeskWallpape r, 0, @PC, spif_UpdateIniFile);
End;
End;
Function TWallpaper.GetTile: Boolean;
Begin
{$IFDEF WIN32}
Reg := TRegisTry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\desktop\', False);
Result := Boolean(StrToInt(Reg.Readstring('TileWal lpaper')));
Reg.Free;
{$Else}
Reg := TIniFile.Create(WinIniPath);
Result := Reg.ReadBool('Desktop', 'TileWallpaper', False);
Reg.Free;
{$EndIF}
End;
Procedure TWallpaper.SetTile(Value: Boolean);
Begin
If not (csDesigning in ComponentState) and
not (csLoading in ComponentState) and
not (csReading in ComponentState) Then
Begin
{$IFDEF WIN32}
Reg := TRegisTry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\desktop\', False);
Reg.Writestring('TileWallpaper', IntToStr(Integer(Value)));
Reg.Free;
{$Else}
Reg := TIniFile.Create(WinIniPath);
Reg.WriteBool('Desktop', 'TileWallpaper', Value);
Reg.Free;
{$EndIF}
SetWallpaper(Wallpaper);
End;
End;
Function TWallpaper.GetStretch: Boolean;
var
i: Integer;
Begin
{$IFDEF WIN32}
Reg := TRegisTry.Create;
Try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\desktop\', False);
i := StrToInt(Reg.Readstring('WallpaperStyle' ));
Except
End;
Reg.Free;
{$Else}
Reg := TIniFile.Create(WinIniPath);
i := Reg.ReadInteger('Desktop', 'WallpaperStyle', 0);
Reg.Free;
{$EndIF}
Result := i = 2;
End;
Procedure TWallpaper.SetStretch(Value: Boolean);
var
v: Integer;
Begin
If not (csDesigning in ComponentState) and
not (csLoading in ComponentState) and
not (csReading in ComponentState) Then
Begin
If Value Then v := 2 Else v := 0;
{$IFDEF WIN32}
Reg := TRegisTry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\desktop\', False);
Reg.Writestring('WallpaperStyle', IntToStr(v));
Reg.Free;
{$Else}
Reg := TIniFile.Create(WinIniPath);
Reg.WriteInteger('Desktop', 'WallpaperStyle', v);
Reg.Free;
{$EndIF}
SetWallpaper(Wallpaper);
End;
End;
Procedure Register;
Begin
RegisterComponents('JohnUtilEnd;
End.
Ответ 3:
WinAPI:
BOOL SystemParametersInfo(
UINT uiAction, // system parameter to query or set
UINT uiParam, // depEnds on action to be taken
PVOID pvParam, // depEnds on action to be taken
UINT fWinIni // user profile update flag
);
uiAction := SPI_SETDESKWALLPAPER Sets the desktop wallpaper.
pvParam := 'Имя BMP файла'#0
uiParam := 0
fWinIni := SPIF_UPDATEINIFILE
Ответ 4:
Программка смены обоев на рабочем столе.
Имя файла с картинкой передается через параметр.
Текст файла change.dpr:
{-- change.dpr --}
program change;
uses
windows;
var
s: string;
Begin
s := paramStr(1);
SystemParametersInfo(SPI_SETDESKWALLPAPE R, 0, @S[1],
SPIF_UPDATEINIFILE OR SPIF_SEndWININICHANGE);
End.
{-- End of change.dpr --}
Запускаешь:
change.exe "имя файла с картинкой"