| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Режим экранного видио для плеера [D6, Win95/98, WinXP]

XenonXX ©   (2003-09-21 04:47:00) 

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

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-24 02:14:00) [1]

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

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

---

Думкин   (2003-09-23 08:14:00) [2]

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

---

XenonXX   (2003-09-23 02:14:00) [3]

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

---

XenonXX   (2003-09-22 09:44:00) [4]

Да пожалуйста:

..............................................
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);
...........................................................


---

Думкин   (2003-09-22 05:24:00) [5]

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

---

XenonXX   (2003-09-22 02:42:00) [6]

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

---

Наверх