Поиск и замена в RE, подправить код

[MyLastHit]

Класс) А Делфя не умеет?..

[Hacker19_90]

умеет! код переведи...

[MyLastHit]

Как мне это сделать?
SetWindowLong(Form2.Handle,GWL_EXST YLE,GetWindowLong(Form2.Handle,GWL_ EXSTYLE)|WS_EX_APPWINDOW);

[Hacker19_90]

SetWindowLong(Form2.Handle,GWL_EXSTYLE,GetWindowLong(Form2.Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);

[DIgorevich]

Сообщение от MyLastHit

Класс) А Делфя не умеет?..

Делфя и по-другому умеет:

   protected
     procedure CreateParams(var Params: TCreateParams); override;
   end;

 implementation

 {...}

 procedure TForm2.CreateParams(var Params: TCreateParams);
 begin
   inherited CreateParams(Params);
   Params.ExStyle   := Params.ExStyle or WS_EX_APPWINDOW;
   Params.WndParent := GetDesktopWindow;
 end;