Fullscreen

Zdraveite, znae li nqkoi , kak moga da razbera , dali teku6tiq video rejim na Windows e "fullscreen" , t.e. dali naprimer ima igra koqto e vav fullscreen.

Blagodarq predvaritelno

Poneze veche nqkolko dni nqma postingi po tozi vapros, a puk i na men mi e interesno, shte ti pokaza , az kak se opitvah da napravq tova...
e, ne znam dali e 100% opredelqneto za fullscreen, obache sas sigurnost se vodi log na smqnata na video rezimite ;)
moje puk da ti svarshi rabota.
ako mezduvremenno si otkril nqkakuv drug nachin , postni go molq te .

procedure MyMessage(var Msg: TWMDisplayChange); message WM_DISPLAYCHANGE;

........................
procedure TForm1.MyMessage(var Msg: TWMDisplayChange);
var
ts : string;
begin
if WindowFromPoint(Point(0,0)) = WindowFromPoint(Point(Msg.Width-1, Msg.Height-1)) then
ts := 'full';

memo1.Lines.Add('video mode: '+
IntToStr(Msg.Width)+' - '+
IntToStr(Msg.Height) + '<' + ts +'>');
end;

GetWindowPlacement :) a sys FindWindow namirash handle-a na windowa :)))

Не всичко което виси е Windows, но той най-често го прави

Blagodarq , 4e se opitvate da pomognete , no ne mi var6i rabota. Moje da se izpolzva i saob6tenieto wm_settingchanged /ili ne6to podobno/, koeto se polu4ava i pri smqna na rejima.