garry
Anmeldedatum: 25.10.2005
Beiträge: 422
Wohnort: switzerland
|
 Verfasst am: So Apr 02, 2006 8:19 pm Titel: Video Player 1337 |
 |
|
download http://www.daansystems.com/1337player/down.html
File in Ordner Media, start , doppelclick, verlassen mit Esc
| Code: | ;--------PLAY VIDEO garry 2006-04-02 ---------------------------------------------------------
/*
1337player =http://www.daansystems.com/1337player/down.html
1337player.exe =280 kB
1337player.gml = 14 kB
1337player is a small video player that fully utilizes DirectX9 Niek Albers 2006 Build 28
*/
;----------------------------------------------------------------------------------------------
run,%COMSPEC% /C if not exist \MEDIA\NUL MD MEDIA,,hide ; here the xy.avi file
Gui, Color, 000000
Gui, Font, S10 CDefault , FixedSys
Gui, Show, x300 y0 w720 h400,AVI
Gui,Add, ListView,grid r20 w700 gMyListView, Name|Size
Loop,%A_SCRIPTDIR%\MEDIA\*.*
{
LV_Add("",A_LoopFileName,A_LoopFileSize)
LV_ModifyCol()
LV_ModifyCol(2, "Integer")
}
Gui,Font,S8 cwhite, Verdana
Gui,Add,Button, x600 y365 w82 h20,MIXER
return
ButtonMixer:
run,sndvol32.exe
return
MyListView:
Gui,submit,nohide
if A_GuiEvent = DoubleClick
{
LV_GetText(C1,A_EventInfo,1)
WA=%A_screenwidth%
HA=%A_screenheight%
LB:=(HA*5)/100 ;TEXT X-POSITION
HB:=(HA*90)/100 ;TEXT Y-POSITION
WB:=(WA*90)/100 ;TEXT WIDTH
Gui,2:-Border
Gui,2:Color,000000 ;BLACK
Gui,2:Show,x0 y0 w%A_screenwidth% h%A_screenheight%
Gui,2:Font,S1 cwhite, Verdana ;border
XM:=(WA*1)/100
YM:=(HA*1)/100
WT:=(WA*98)/100
HM:=(HA*94)/100
Gui,2:add,GroupBox,x%XM% y%YM% w%WT% h%HM%
Gui,2:Font,S30 cwhite, Verdana
Gui,2:Add,TEXT, x%LB% y%HB% w%WB% h120,%C1%
Q4X=.mpg,.wav
stringright,Q4,C1,4
if Q4 contains %Q4X%
{
soundplay,%A_SCRIPTDIR%\MEDIA\%C1%
return
}
ifexist %A_ScriptDir%\1337player.exe
{
run,"%A_ScriptDir%\1337player.exe" "%A_SCRIPTDIR%\MEDIA\%C1%",,,NP
return
}
}
return
GuiClose:
esc::
{
Process,close,%NP%
ExitApp
}
|
|
|
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
