Включить Drop Shadow Effect окна в XP

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

— Какая разница между вирусом и Windows XP?

— Вирус стабильнее работает.

type

TForm1 = class(TForm)

protected

procedure CreateParams(var Params: TCreateParams); override;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);

const

CS_DROPSHADOW = $00020000;

begin

inherited;

Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;

end;

{/codecitation}

Добавить комментарий