Q&A
- 다시 질문 드립니다.
바탕화면에 그림을 띠울려고 하는데 안되네요
조규춘님이 가르쳐 주실걸로 했는데도 안되요
그래서 또 질문을 드립니다.
에러는 없네요.
디스플레이 정보에 가면 바뀌어는 있는데 바탕화면에는 없네요.
뭐가 잘못 된건지 도통 모르겠네요.
부탁합니다.한번 봐 주세요.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Registry,Winprocs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
WPS_Tile = 0; //바둑식 배열
WPS_Center = 1; //가운데
WPS_SizeToFit = 2; //늘리기
WPS_XY = 3; //x, y위치에 그리기
implementation
{$R *.DFM}
procedure SetWallpaperExt(sWallpaperBMPPath : string; nStyle, nX, nY :
integer );
var
reg : TRegIniFile;
s1 : string;
X, Y : integer;
begin
reg := TRegIniFile.Create('Control PanelDesktop' );
with reg do
begin
s1 := '0';
X := 0;
Y := 0;
case nStyle of
WPS_Tile : s1 := '1';
WPS_Center: nStyle := WPS_Tile;
WPS_XY :
begin
nStyle := WPS_Tile;
X := nX;
Y := nY;
end;
end;
WriteString( '', 'Wallpaper', sWallpaperBMPPath );
WriteString( '', 'TileWallpaper',s1 );
WriteString( '', 'WallpaperStyle', IntToStr( nStyle ) );
WriteString( '', 'WallpaperOriginX', IntToStr( X ) );
WriteString( '', 'WallpaperOriginY', IntToStr( Y ) );
end;
reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWallpaperExt('c:windows11.bmp',WPS_XY,10,200);
end;
end.
조규춘님이 가르쳐 주실걸로 했는데도 안되요
그래서 또 질문을 드립니다.
에러는 없네요.
디스플레이 정보에 가면 바뀌어는 있는데 바탕화면에는 없네요.
뭐가 잘못 된건지 도통 모르겠네요.
부탁합니다.한번 봐 주세요.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Registry,Winprocs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
WPS_Tile = 0; //바둑식 배열
WPS_Center = 1; //가운데
WPS_SizeToFit = 2; //늘리기
WPS_XY = 3; //x, y위치에 그리기
implementation
{$R *.DFM}
procedure SetWallpaperExt(sWallpaperBMPPath : string; nStyle, nX, nY :
integer );
var
reg : TRegIniFile;
s1 : string;
X, Y : integer;
begin
reg := TRegIniFile.Create('Control PanelDesktop' );
with reg do
begin
s1 := '0';
X := 0;
Y := 0;
case nStyle of
WPS_Tile : s1 := '1';
WPS_Center: nStyle := WPS_Tile;
WPS_XY :
begin
nStyle := WPS_Tile;
X := nX;
Y := nY;
end;
end;
WriteString( '', 'Wallpaper', sWallpaperBMPPath );
WriteString( '', 'TileWallpaper',s1 );
WriteString( '', 'WallpaperStyle', IntToStr( nStyle ) );
WriteString( '', 'WallpaperOriginX', IntToStr( X ) );
WriteString( '', 'WallpaperOriginY', IntToStr( Y ) );
end;
reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWallpaperExt('c:windows11.bmp',WPS_XY,10,200);
end;
end.
4
COMMENTS
-
-
안녕하세요. 최용일입니다.
아래와 같이 고쳐서 해보세요...
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
===>
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDCHANGE);
안되면 아래것으로...
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(sWallpaperBMPPath)
, SPIF_SENDCHANGE);
^^ 항상 즐코하세요.
조헌철 wrote:
> 바탕화면에 그림을 띠울려고 하는데 안되네요
> 조규춘님이 가르쳐 주실걸로 했는데도 안되요
> 그래서 또 질문을 드립니다.
> 에러는 없네요.
> 디스플레이 정보에 가면 바뀌어는 있는데 바탕화면에는 없네요.
> 뭐가 잘못 된건지 도통 모르겠네요.
> 부탁합니다.한번 봐 주세요.
>
>
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Registry,Winprocs, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> const
> WPS_Tile = 0; //바둑식 배열
> WPS_Center = 1; //가운데
> WPS_SizeToFit = 2; //늘리기
> WPS_XY = 3; //x, y위치에 그리기
>
> implementation
>
> {$R *.DFM}
>
>
>
>
>
> procedure SetWallpaperExt(sWallpaperBMPPath : string; nStyle, nX, nY :
> integer );
> var
> reg : TRegIniFile;
> s1 : string;
> X, Y : integer;
> begin
> reg := TRegIniFile.Create('Control PanelDesktop' );
>
> with reg do
> begin
> s1 := '0';
> X := 0;
> Y := 0;
>
> case nStyle of
> WPS_Tile : s1 := '1';
> WPS_Center: nStyle := WPS_Tile;
> WPS_XY :
> begin
> nStyle := WPS_Tile;
> X := nX;
> Y := nY;
> end;
> end;
>
> WriteString( '', 'Wallpaper', sWallpaperBMPPath );
> WriteString( '', 'TileWallpaper',s1 );
> WriteString( '', 'WallpaperStyle', IntToStr( nStyle ) );
> WriteString( '', 'WallpaperOriginX', IntToStr( X ) );
> WriteString( '', 'WallpaperOriginY', IntToStr( Y ) );
> end;
> reg.Free;
>
> SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
> end;
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> SetWallpaperExt('c:windows11.bmp',WPS_XY,10,200);
> end;
>
> end.
-
답변 잘 읽었습니다.
하지만 그렇게 해도 안되네요.
-
조헌철 wrote:
> 답변 잘 읽었습니다.
> 하지만 그렇게 해도 안되네요.
>
한번 만든 소스 저에게 매일로 보내주셔 보셔요.... 직접 해볼께요
(NOTICE) You must be logged in to comment on this post.
-
- 델처버
- •
- 2000.07.07 01:12
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.07.07 01:18000-000;1; 이렇게 하셨나요? 이러면 에러...... 999-999;1; 이렇게 하셨어야죠....... 0은 널을 ...
-
-
문홍철•2000.07.07 01:23호야 wrote: > 밑에와 같이 코딩을 했습니다. > 22라인을 봐주세요. > 1: //-------------------------...
-
-
- 원령
- •
- 2000.07.07 00:24
- 3 COMMENTS
- /
- 0 LIKES
-
강인규•2000.07.07 01:14formshow이벤트에 아래와 같이 코딩하세요 form2.showmodal; if form2.modalresult = 1 then ...
-
이은정•2000.07.07 00:47원령 wrote: > 안녕하세요.. 넘 안되서 이렇게 글을 올립니다. > > 현재 MDI폼으로 작업을 하고 있구요...
-
원령•2000.07.07 02:16> 이렇게 한번 해보세요.. > 먼저 메뉴에 프로젝트에 옵션에 가셔서 오토 크리에이트 항목에 로그인 하...
-
- 유병용
- •
- 2000.07.07 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.07 01:42안녕하세요. 최용일입니다. 맞는건가 잘 모르겠네요.. 디비나 리스트뷰구조가 어떻게 되어있는지 몰라서...
-
- 서병인
- 2000.07.07 00:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.07.07 00:10
- 2 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.07 00:16사발우성 wrote: > 안뇽하신가엽 고수님들(지금 쌈터에들 계신가....??) > > 음 다름이 아니라 dbgri...
-
사발우성•2000.07.07 00:33하하~ 마죠 음 조금 과격한 방법이쥐만 이게 있었쥐 캬캬캬 감솨엽^^
-
- 정욱환
- 2000.07.06 23:56
- 0 COMMENTS
- /
- 0 LIKES
-
- vagrant
- 2000.07.06 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- chaos
- •
- 2000.07.06 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
아리엘•2000.07.07 00:09제가 그렇게 쓰는데 잘되요... 문제는 3.0에서는 안되더라구요.. 퀵레포트 2.0k에서는 님과 같은 메...
-
- 홍승현
- 2000.07.06 23:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 영호
- •
- 2000.07.06 23:06
- 1 COMMENTS
- /
- 0 LIKES
-
이재원•2000.07.07 16:42If ListView1.Selected.SubItems.Strings[1]'2' Then ListView1.Selected.SubItems.Strings[1]:='...
-
- 혀기
- •
- 2000.07.06 22:39
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.06 22:44안녕하세요. 최용일입니다. AutoSize속성을 False로 해주세요. ^^ 항상 즐코하세요. 혀기 wrote: ...
-
- dogmh
- •
- 2000.07.06 22:02
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.06 22:10dogmh wrote: > 파라독스 테이블을 동적으로 생성하고 싶습니다. > TblAddr.DatabaseName := 'BUDONG...
-
- 원영준
- •
- 2000.07.06 21:49
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.07.06 22:13원영준 wrote: > 해야 하나요 ? > > 감사합니다. Query1.SQL.LoadFromFile('화일명'); Query1.op...
-
- 병규
- 2000.07.06 21:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 아리엘
- 2000.07.06 21:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 조헌철
- •
- 2000.07.06 21:14
- 4 COMMENTS
- /
- 0 LIKES
바탕화면에 그림을 띠울려고 하는데 안되네요 조규춘님이 가르쳐 주실걸로 했는데도 안되요 그래서 또 질문을 드립니다. 에러는 없네요. 디스플레이 정보에 가면 바뀌어는 있는데 바탕화면에는 없네요. 뭐가 잘못 된건지 도통 모르겠네요....-
이재원•2000.07.07 17:05요렇게 한번 해 보시고요. procedure TForm1.Button1Click(Sender: TObject); begin if not Syste...
-
최용일•2000.07.06 21:51안녕하세요. 최용일입니다. 아래와 같이 고쳐서 해보세요... SystemParametersInfo(SPI_SETDESKWALLP...
-
조헌철•2000.07.07 00:58답변 잘 읽었습니다. 하지만 그렇게 해도 안되네요.
-
조규춘•2000.07.07 01:04조헌철 wrote: > 답변 잘 읽었습니다. > 하지만 그렇게 해도 안되네요. > 한번 만든 소스 저에게 매...
-
- 어린왕자
- •
- 2000.07.06 21:07
- 1 COMMENTS
- /
- 0 LIKES
-
이재원•2000.07.07 17:24먼저 ListBox.Style을 lbOwnerDrawFixed로 정해 주신담에 ItemHeight을 바꿔주시면 됩니당. 어린왕자 ...
-
- 김해중
- •
- 2000.07.06 21:10
- 2 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.07 03:13김해중 wrote: 저는 약간 다른경우지만 NT에서 개발한 프로그램이 WIN98에서 엉뚱하게 나와서 몽땅 98에...
-
김해중•2000.07.08 00:13성호종 wrote: 답변 감사 합나다 Win2000에서도 이러한 문제가 발생한다 합니다.... with Query do be...
-
- 손상수
- •
- 2000.07.06 21:03
- 4 COMMENTS
- /
- 0 LIKES
-
문홍철•2000.07.06 21:16손상수 wrote: > 수고가 많으십니다. 고슈님들....^^ > dbgrid의 선택된 열을 수정후 저장버튼을 눌렀을...
-
손상수•2000.07.06 21:28고맙습니다..그리고 염치없지만 한가지 더 부탁드릴께요 query를 open 하였을때 예를 들어 배송상태가 nul...
-
문홍철•2000.07.06 22:14손상수 wrote: > 고맙습니다..그리고 염치없지만 한가지 더 부탁드릴께요 > query를 open 하였을때 예를 ...
-
손상수•2000.07.06 22:45감사....
procedure TForm1.Button1Click(Sender: TObject);
begin
if not SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
pChar('c:windowsnewwallpaper.bmp'),
SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE) then
ShowMessage(SyserrorMessage(GetlastError()));
end;
혹시나 active desktop 사용하시면 아래와 같이 하셔야 되는걸로 알고 있읍니당.
procedure ChangeActiveWallpaper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper('c:windowsprofilesdavedesktopfern.jpg', 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;