|
Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
Delphi 10.2 Tokyo Starter
|
Re: Wallpaperausrichtung überprüfen/setzen
18. Apr 2006, 15:56
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
Christian 
IT: Schließen Sie bitte das Fenster. User: Die Tür auch? 
i++; // zaehler i um 1 erhoehen
|