Архив форумов ЦИТФорума

[ruslan1]

image1 soderjit foto. Kak mojno sdelat cto pri najatii na neqo on popal v rabociy stol Wind... kak fonovoy risunok

To est dlya etoqo cto mojno napisat posle begin

procedure TForm1.Image1Click(Sender: TObject);
begin
?
?
?
end;

Zaranie bloqadaryu

[GREA]

Вот сырец
program wallpapr;
uses Registry, WinProcs;
procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );
var
reg : TRegIniFile;
begin
// Изменяем ключи реестра
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do begin
WriteString( '', 'Wallpaper',
sWallpaperBMPPath );
if( bTile )then
begin
WriteString('', 'TileWallpaper', '1' );
end else begin
WriteString('', 'TileWallpaper', '0' );
end;
end;
reg.Free;
// Оповещаем всех о том, что мы
// изменили системные настройки
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
begin
// пример установки WallPaper по центру рабочего стола
SetWallpaper('c:\winnt\winnt.bmp', False );
end.

[ruslan1]

Sozdal forma1 postavil imace1


unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Registry, WinProcs;
// SYUDA POSTAVIL PRAVILNO?
type
TForm1 = class(TForm)
Image1: TImage;

// SYUDA POSTAVIL PRAVILNO?
procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );

procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);

// CYUDA POSTAVIL PRAVILNO?var
reg : TRegIniFile;
begin
// Изменяем ключи реестра
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do begin
WriteString( '', 'Wallpaper',

// ZDES DAYOT OSIBKA
sWallpaperBMPPath );
// [Error] main.pas(46): Undeclared identifier: 'sWallpaperBMPPath'
// [Error] main.pas(47): Undeclared identifier: 'bTile'
// [Error] main.pas(61): Declaration expected but identifier 'SetWallpaper' found
// [Error] main.pas(15): Unsatisfied forward or external declaration: 'TForm1.SetWallpaper'
// [Fatal Error] IMAJ.dpr(5): Could not compile used unit 'main.pas'


if( bTile )then
begin
WriteString('', 'TileWallpaper', '1' );
end else begin
WriteString('', 'TileWallpaper', '0' );
end;
end;
reg.Free;
// Оповещаем всех о том, что мы
// изменили системные настройки SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
begin
// пример установки WallPaper по центру рабочего стола SetWallpaper('D:\IMAJE\WIN.bmp', False );
end;
end;

end.

[GREA]

Все неправильно. Надо примерно так

Sozdal forma1 postavil imace1


unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Registry, WinProcs;

type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean );
var
reg : TRegIniFile;
begin
// Изменяем ключи реестра
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do begin
WriteString( '', 'Wallpaper',
sWallpaperBMPPath );
if( bTile )then
begin
WriteString('', 'TileWallpaper', '1' );
end else begin
WriteString('', 'TileWallpaper', '0' );
end;
end;
reg.Free;
// Оповещаем всех о том, что мы
// изменили системные настройки
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
// пример установки WallPaper по центру рабочего стола
Image1.SaveToFile('c:\winnt\winnt.bmp');
SetWallpaper('c:\winnt\winnt.bmp', False );
end;
end.

Не компилял, проверь сам, но в общем правильно.

[ruslan1]

ZDES DAL OSIBKA

Image1.SaveToFile=('D:\IMAJE\Santa Fe Stucco.bmp');

[Error] main.pas(55): Undeclared identifier: 'SaveToFile'
[Fatal Error] IMAJ.dpr(5): Could not compile used unit 'main.pas'

YA PROSTO UBRAL

// Image1.SaveToFile=('D:\IMAJE\Santa Fe Stucco.bmp');

SetWallpaper('D:\IMAJE\FeatherTexture.bmp', False );

i RABOTAL


KAK BLOQADARIT DAJE NE ZNAYU
BOLSAYA SPOSIBO TEBYA

[GREA]

Не
Image1.SaveToFile=('D:\IMAJE\Santa Fe Stucco.bmp');
А
Image1.SaveToFile('D:\IMAJE\Santa Fe Stucco.bmp');

[ruslan1]

[ruslan1]

[GREA]

Попробуй в функции вместо
WriteString('', 'TileWallpaper', '1' );
написать
WriteString('', 'TileWallpaper', '2' );
может получится. А если честно, то точно не знаю.
Пошукай в яндексе.