I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
重载CreateParams即可。
procedure TForm2.CreateParams(var para: TCreateParams);
begin
inherited;
Para.ExStyle:=Para.ExStyle+$1000;
end;
procedure TForm2.CreateParams(var para: TCreateParams);
begin
inherited;
Para.ExStyle:=Para.ExStyle+$1000;
end;