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?