Wallpaperausrichtung überprüfen/setzen

[cruso]

Hallo!

Ich müsste wissen, wie man die Ausrichtung des Desktophintergrundes (Zentriert, Gestreckt, Nebeneinander) programmgesteuert verändern kann bzw. überprüfen kann, was gerade vorliegt?
Danke schon mal im Vorraus!


MfG
Cruso

[faux]

Hallo!

center stretch tile --> WALLPAPEROPT Structure

Grüße
Faux

[cruso]

Ich hab das jetzt mal so übersetzt:

Delphi-Quellcode:

uses shlObj;
//...
procedure TForm1.Button1Click(Sender: TObject);
var  dwStyle,dwSize:DWORD;
begin
if dwStyle=WPSTYLE_STRETCH then Label1.Caption:='TRUE' else Label1.Caption:='FALSE';
end;

end.

Ist natürlich falsch und er gibt immer 'FALSE' aus, auch wenn "Gestreckt" vorliegt. Wo ist der Fehler?

[Khabarakh]

Erstens hast du den struct-Typ nicht übersetzt (wozu auch - ShlObj.TWallPaperOpt) und zweitens musst du ihn natürlich auch füllen.
IActiveDesktop.GetWallPaperOptions

[cruso]

Zitat von Khabarakh:

Erstens hast du den struct-Typ nicht übersetzt (wozu auch - ShlObj.TWallPaperOpt) und zweitens musst du ihn natürlich auch füllen.
IActiveDesktop.GetWallPaperOptions

Und wie sieht das dann aus?

[freak4fun]

Delphi-Quellcode:

uses shlObj;
//...
procedure TForm1.Button1Click(Sender: TObject);
var  dwStyle,dwSize:DWORD;
begin
if dwStyle=WPSTYLE_STRETCH then Label1.Caption:='TRUE' else Label1.Caption:='FALSE';
end;

end.

Delphi-Quellcode:

uses shlObj;
//...
procedure TForm1.Button1Click(Sender: TObject);
var  dwStyle,dwSize:DWORD;
begin
 Label1.Caption:= BoolToStr(dwStyle=WPSTYLE_STRETCH, True);
end;

end.

MfG
freak

[cruso]

Zitat von freak4fun:

Delphi-Quellcode:

uses shlObj;
//...
procedure TForm1.Button1Click(Sender: TObject);
var  dwStyle,dwSize:DWORD;
begin
 Label1.Caption:= BoolToStr(dwStyle=WPSTYLE_STRETCH, True);
end;

end.

Nur das das auch nicht funktioniert. Es gibt genauso (fälschlicherweise) "FALSE" aus wie das was ich da "gebastelt" hab.

[cruso]

Wie soll ich das (http://msdn.microsoft.com/library/de...llpaperopt.asp) denn nach Delphi portieren? Das ist doch für C++ oder? Ich steig da nicht durch oder ich steh auf'm Schlauch.

[ste_ett]

Schon fertig.

uses ShlObj;

[cruso]

Zitat von ste_ett:

Schon fertig.

uses ShlObj;

ShlObj hatte ich aber bei meinen versuchen auch eingebunden, doch es hat trotzdem nicht funktioniert. Ich habe bei mir als Ausrichtung "Gestreckt" angegeben, doch trotzdem gibt er bei der Abfrage (WPSTYLE_STRETCH) "FALSE" aus. Wie kann das sein?