Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

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

 
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]

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

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



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
1-93426
DDA
2004-01-16 13:06
2004.01.29
Завершение потока


14-93692
anana][
2004-01-06 15:32
2004.01.29
Когда-то я спрашивал, как можно добавить юзера...


9-93315
r0n1n
2003-07-16 03:08
2004.01.29
Модели...


14-93672
DimKa Nevidimka
2004-01-05 11:09
2004.01.29
И снова в бой....


6-93594
Micah'GF
2003-11-25 17:40
2004.01.29
socket не хочет давать сокет