Режим экранного видио для плеера

← →
XenonXX (2003-09-21 04:47) [0]

Для начала кусок кода

form1.Hint:=IntToStr(form1.Width)+" "+IntToStr(form1.Height)+" "+IntToStr(form1.Top)+" "+IntToStr(form1.Left); Form2.BorderIcons:=Form2.BorderIcons + [biMinimize]; aot:=CheckBox1.Checked; ListBox2.Color:=$100010; form1.BorderStyle:=bsNone; form1.WindowState:=wsMaximized; form1.Visible:=false; form1.activeMovie1.Height:=form1.Height; form1.ActiveMovie1.Width:=form1.Width; til:=rr1("\Control Panel\Desktop","Wallpaper"); wr1("\Control Panel\Desktop","Wallpaper",""); DeskCol:=GetSysColor(COLOR_DESKTOP); Wincol:=GetSysColor(COLOR_WINDOW); ar[0]:=COLOR_DESKTOP; ar[1]:=COLOR_WINDOW; arz[0]:=$100010; arz[1]:=$100010; SetSysColors(2,ar,arz);

Это под ХР расширяет видио на весь экран, деляет его невидимым, но также выставляет фон рабочего стола в 0, а цвет - в прозрачный для оверлея, так что вмнесто обоев и фона окон получается видио :)

Вопрос, почему в 98-х этот же код не дает такого же результата - видио не видно, хотя цвет и обои выставляет правильно, а если не расширять размеры видио на весь экран, то видно, почему? Где-то стоит размер или надо что-то регистрировать в форточках?

← →
XenonXX (2003-09-22 02:42) [1]

Ну что неужели никто не знает? Где же мастера?

← →
Думкин (2003-09-22 05:24) [2]

Нет, ну ты кедр.
1. вопрос задан в выходные - что не подразумевает быстрого ответа.
2. Нужно догадываться, что есть твои
til:=rr1("\Control Panel\Desktop","Wallpaper");
wr1("\Control Panel\Desktop","Wallpaper","");
и прочее.
Или приводи побольше кода или....

← →
XenonXX (2003-09-22 09:44) [3]

Да пожалуйста:
.............................................. function rr1(address,name:string):string; var reg:Tregistry; begin reg:=Tregistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.Access:=KEY_ALL_ACCESS; reg.LazyWrite:=false; Reg.OpenKey(address, True); result:=Reg.readString(name); Reg.CloseKey; reg.Destroy; end; procedure wr1(address,name,data:string); var reg:Tregistry; begin reg:=Tregistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.Access:=KEY_ALL_ACCESS; reg.LazyWrite:=false; Reg.OpenKey(address, True); Reg.WriteString(name,data); Reg.CloseKey; reg.Destroy; end; ............................................................... var ar:array[0..1] of integer; arz:array[0..1] of integer; ............................................................... form1.Hint:=IntToStr(form1.Width)+" "+IntToStr(form1.Height)+" "+IntToStr(form1.Top)+" "+IntToStr(form1.Left); Form2.BorderIcons:=Form2.BorderIcons + [biMinimize]; ListBox2.Color:=$100010; form1.BorderStyle:=bsNone; form1.WindowState:=wsMaximized; form1.Visible:=false; form1.activeMovie1.Height:=form1.Height; form1.ActiveMovie1.Width:=form1.Width; til:=rr1("\Control Panel\Desktop","Wallpaper");//til - для запиминания заставки wr1("\Control Panel\Desktop","Wallpaper",""); DeskCol:=GetSysColor(COLOR_DESKTOP); Wincol:=GetSysColor(COLOR_WINDOW); ar[0]:=COLOR_DESKTOP; ar[1]:=COLOR_WINDOW; arz[0]:=$100010; arz[1]:=$100010; SetSysColors(2,ar,arz); ...........................................................

← →
XenonXX (2003-09-23 02:14) [4]

Думкин, ну как там, впадло, или не знаешь?

← →
Думкин (2003-09-23 08:14) [5]

1. Знаю.
2. По твоему поведению, - впадло.

← →
XenonXX (2003-09-24 02:14) [6]

"По твоему поведению, - впадло."

А что не так в моем поведении? Попробую быть повежливей:
сер, подскажите оглупевшему чайнику, плиз.

Режим экранного видио для плеера Найти похожие ветки