var
  wnd: HWND;
  old_long: Integer;
begin
  wnd := FindWindow('Notepad', nil);
  old_long := GetWindowLong(wnd, GWL_EXSTYLE);
  SetWindowLong(wnd, GWL_EXSTYLE, old_long or WS_EX_TOOLWINDOW);
end;