Also ich habe folgendes ausgeführt und es geht:
Delphi-Quellcode:
procedure TForm1.CreateParams(var Params: TCreateParams);
const
CS_DROPSHADOW = $00020000;
begin
inherited;
if IsWindowsXPAndUp then
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;
Zum Vergleich auch ein Bild ohne Schatten.
Übrigens hat die
Jedi Code Library eine vollständige Funktion zum ermitteln der Windowsversion.