Ищу исходники NoFRAME

[Sherman]

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

вероятно....
GetWindowLong надо звать из адресного пространства л2 иначе будет отказ в доступе (имхо)
После смены стиля бордеров надо звать SetWindowPos с флагом SWP_FRAMECHANGED (по идеии)

Собственно, протестированный код:

var
 hWnd:THandle;
 Value:integer;
 wRect:TRect;
begin
 hWnd:=FindWindow(nil,'Lineage II');
 Value:=GetWindowLong(hWnd,GWL_STYLE);
 Value:=Value xor WS_CAPTION xor WS_THICKFRAME;
 SetWindowLong(hWnd,GWL_STYLE,Value);
 GetWindowRect(hWnd,wRect);
 SetWindowPos(hWnd,HWND_TOP,
              wRect.Left,
              wRect.Top,
              wRect.Right-wRect.Left,
              wRect.Bottom-wRect.Top,
              SWP_FRAMECHANGED);
end;