Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

1976 lines
60 KiB

/*-----------------------------------------------------------------------------+
| INIT.C |
| |
| This file houses the discardable code used at initialisation time. Among |
| other things, this code reads .INI information and looks for MCI devices. |
| |
| (C) Copyright Microsoft Corporation 1991. All rights reserved. |
| |
| Revision History |
| Oct-1992 MikeTri Ported to WIN32 / WIN16 common code |
| |
+-----------------------------------------------------------------------------*/
/* include files */
#include <windows.h>
#include <mmsystem.h>
#include <mmddk.h>
#include <stdlib.h>
#include <shellapi.h>
#include "mpole.h"
#include "mplayer.h"
#include "toolbar.h"
#include "registry.h"
DWORD gfdwFlagsEx;
static SZCODE aszMPlayer[] = TEXT("MPlayer");
extern char szToolBarClass[]; // toolbar class
/*
* Static variables
*
*/
HANDLE ghInstPrev;
TCHAR gachAppName[40]; /* string holding the name of the app. */
TCHAR gachClassRoot[48]; /* string holding the name of the app. */
TCHAR aszNotReadyFormat[48];
TCHAR aszReadyFormat[48];
TCHAR aszDeviceMenuSimpleFormat[48];
TCHAR aszDeviceMenuCompoundFormat[48];
TCHAR gachOpenExtension[5] = TEXT("");/* Non-null if a device extension passed in */
TCHAR gachOpenDevice[128] = TEXT(""); /* Non-null if a device extension passed in */
TCHAR gachProgID[128] = TEXT("");
CLSID gClsID;
CLSID gClsIDOLE1Compat; /* For writing to IPersist - may be MPlayer's */
/* OLE1 class ID or same as gClsID. */
TCHAR gszMPlayerIni[40]; /* name of private .INI file */
TCHAR gszHelpFileName[_MAX_PATH]; /* name of the help file */
TCHAR gszHtmlHelpFileName[_MAX_PATH]; /* name of the html help file */
PTSTR gpchFilter; /* GetOpenFileName() filter */
PTSTR gpchInitialDir; /* GetOpenFileName() initial directory */
RECT grcSave; /* size of mplayer before shrunk to */
/* play only size. */
int giDefWidth;
extern BOOL gfSeenPBCloseMsg; //TRUE if the subclasses PlayBack WIndow Proc
//has seen the WM_CLOSE message
////////////////////////////////////////////
// these strings *must* be in DGROUP!
static TCHAR aszNULL[] = TEXT("");
static TCHAR aszAllFiles[] = TEXT("*.*");
////////////////////////////////////////////
// strings for registration database - also referenced from fixreg.c
SZCODE aszKeyMID[] = TEXT(".mid");
SZCODE aszKeyRMI[] = TEXT(".rmi");
SZCODE aszKeyAVI[] = TEXT(".avi");
SZCODE aszKeyMMM[] = TEXT(".mmm");
SZCODE aszKeyWAV[] = TEXT(".wav");
static SZCODE aszFormatExts[] = TEXT("%s;*.%s");
static SZCODE aszFormatExt[] = TEXT("*.%s");
static SZCODE aszFormatFilter[] = TEXT("%s (%s)");
static SZCODE aszPositionFormat[]= TEXT("%d,%d,%d,%d");
static SZCODE aszSysIniTime[] = TEXT("SysIni");
static SZCODE aszDisplayPosition[] = TEXT("DisplayPosition");
SZCODE aszOptionsSection[] = TEXT("Options");
static SZCODE aszShowPreview[] = TEXT("ShowPreview");
static SZCODE aszWinIni[] = TEXT("win.ini");
SZCODE aszIntl[] = TEXT("intl");
TCHAR chDecimal = TEXT('.'); /* localised in AppInit, GetIntlSpecs */
TCHAR chTime = TEXT(':'); /* localised in AppInit, GetIntlSpecs */
TCHAR chLzero = TEXT('1');
static SZCODE gszWinIniSection[] = TEXT("MCI Extensions"); /* section name in WIN.INI*/
static SZCODE aszSystemIni[] = TEXT("SYSTEM.INI");
#ifdef CHICAGO_PRODUCT
static SZCODE gszSystemIniSection[] = TEXT("MCI");
#else
static SZCODE gszSystemIniSection[] = MCI_SECTION;
#endif
static SZCODE aszBlank[] = TEXT(" ");
static SZCODE aszDecimalFormat[] = TEXT("%d");
static SZCODE aszTrackClass[] = TEXT("MPlayerTrackMap");
extern HMENU ghMenu; /* handle to main menu */
extern HMENU ghDeviceMenu; /* handle to the Device menu */
extern UINT gwCurScale; /* current scale style */
extern HANDLE hAccel;
extern int gcAccelEntries;
/* private function prototypes */
void NEAR PASCAL QueryDevices(void);
void NEAR PASCAL BuildDeviceMenu(void);
void NEAR PASCAL ReadDefaults(void);
void NEAR PASCAL BuildFilter(void);
BOOL PostOpenDialogMessage(void);
extern BOOL InitServer(HWND, HANDLE);
extern BOOL InitInstance (HANDLE);
/**************************************************************************
ScanCmdLine checks first for the following options
-----------
Open
Play Only
Close After Playing
Embedded (play as a server)
If the embedded flag is set, then the play only is also set.
It then removes these options from the cmd line
If no filename is present then turn close option off, and set the play
option to have the same value as the embedded option
If /WAVE, /MIDI or /VFW is specified along with /file,
the file extension must match, otherwise the app exits.
MPLAYER command options.
MPLAYER [/open] [/play] [/close] [/embedding] [/WAV] [/MID] [/AVI] [file]
/open open file if specified, otherwise put up dialog.
/play play file right away.
/close close after playing. (only valid with /play)
/embedding run as an OLE server.
/WAV open a wave file \
/MID open a midi file > Valid with /open
/AVI open an AVI file /
[file] file or device to open.
***************************************************************************/
static SZCODE aszEmbedding[] = TEXT("Embedding");
static SZCODE aszPlayOnly[] = TEXT("Play");
static SZCODE aszClose[] = TEXT("Close");
static SZCODE aszOpen[] = TEXT("Open");
static SZCODE aszWAVE[] = TEXT("WAVE");
static SZCODE aszMIDI[] = TEXT("MIDI");
static SZCODE aszVFW[] = TEXT("VFW");
BOOL NEAR PASCAL ScanCmdLine(LPTSTR szCmdLine)
{
int i;
TCHAR buf[100];
LPTSTR sz=szCmdLine;
gfPlayOnly = FALSE;
gfCloseAfterPlaying = FALSE;
gfRunWithEmbeddingFlag = FALSE;
while (*sz == TEXT(' '))
sz++;
while (*sz == TEXT('-') || *sz == TEXT('/')) {
for (i=0,sz++; *sz && *sz != TEXT(' ') && (i < 99); buf[i++] = *sz++)
;
buf[i++] = 0;
if (!lstrcmpi(buf, aszPlayOnly)) {
gfPlayOnly = TRUE;
}
if (!lstrcmpi(buf, aszOpen))
gfOpenDialog = TRUE;
/* Check for open option, but accept only the first: */
if (!gachOpenDevice[0]
&& (GetProfileString(gszWinIniSection, buf, aszNULL, gachOpenDevice,
CHAR_COUNT(gachOpenDevice)) > 0))
{
/* Take a copy of the extension, which we will use to find stuff
* in the registry relating to OLE:
*/
gachOpenExtension[0] = TEXT('.');
lstrcpy(&gachOpenExtension[1], buf);
}
if (!lstrcmpi(buf, aszClose))
gfCloseAfterPlaying = TRUE;
if (!lstrcmpi(buf, aszEmbedding))
gfRunWithEmbeddingFlag = TRUE;
if (gfRunWithEmbeddingFlag) {
gfPlayOnly = TRUE;
}
while (*sz == TEXT(' '))
sz++;
}
/*
** Do we have a long file name with spaces in it ?
** This is most likely to have come from the FileMangler.
** If so copy the file name without the quotes.
*/
if ( *sz == TEXT('\'') || *sz == TEXT('\"') ) {
TCHAR ch = *sz; // Remember which quote character it was
// According to the DOCS " is invalid in a filename...
i = 0;
/* Move over the initial quote, then copy the filename */
while ( *++sz && *sz != ch ) {
szCmdLine[i++] = *sz;
}
szCmdLine[i] = TEXT('\0');
}
else {
lstrcpy( szCmdLine, sz ); // remove options
}
// It's assumed that OLE2 servers don't accept file name
// with -Embedding.
// (Not doing this caused Win95 bug 4096 with OLE1 apps,
// because MPlayer loaded the file, and, in the meantime,
// OLE called PFLoad, resulting in OpenMCI being called
// recursively.)
if (gfRunWithEmbeddingFlag)
szCmdLine[0] = TEXT('\0');
//
// if there's /play, make sure there's /open
// (this may affect the checks below)
//
if (gfPlayOnly && !gfRunWithEmbeddingFlag)
gfOpenDialog = TRUE;
//
// if no file specifed ignore the /play option
//
if (szCmdLine[0] == 0 && !gfOpenDialog) {
gfPlayOnly = gfRunWithEmbeddingFlag;
}
//
// if file specifed ignore the /open option
//
if (szCmdLine[0] != 0) {
gfOpenDialog = FALSE;
}
if (!gfPlayOnly && szCmdLine[0] == 0)
gfCloseAfterPlaying = FALSE;
SetEvent(heventCmdLineScanned);
return gfRunWithEmbeddingFlag;
}
BOOL ResolveIfLink(PTCHAR szFileName);
BOOL ProgIDFromExtension(LPTSTR szExtension, LPTSTR szProgID, DWORD BufSize /* in BYTES */)
{
DWORD Status;
HKEY hkeyExtension;
BOOL rc = FALSE;
DWORD Type;
DWORD Size;
Status = RegOpenKeyEx( HKEY_CLASSES_ROOT, szExtension, 0,
KEY_READ, &hkeyExtension );
if (Status == NO_ERROR)
{
Size = BufSize;
Status = RegQueryValueEx( hkeyExtension,
aszNULL,
0,
&Type,
(LPBYTE)szProgID,
&Size );
if (Status == NO_ERROR)
{
rc = TRUE;
}
else
{
DPF0("Couldn't find ProgID for extension %"DTS"\n", szExtension);
}
RegCloseKey(hkeyExtension);
}
return rc;
}
BOOL GetClassNameFromProgID(LPTSTR szProgID, LPTSTR szClassName, DWORD BufSize /* in BYTES */)
{
DWORD Status;
HKEY hkeyProgID;
BOOL rc = FALSE;
DWORD Type;
DWORD Size;
Status = RegOpenKeyEx( HKEY_CLASSES_ROOT, szProgID, 0,
KEY_READ, &hkeyProgID );
if (Status == NO_ERROR)
{
Size = BufSize;
Status = RegQueryValueEx( hkeyProgID,
aszNULL,
0,
&Type,
(LPBYTE)szClassName,
&Size );
if (Status == NO_ERROR)
{
DPF1("Found Class Name %"DTS" for ProgID %"DTS"\n", szClassName, szProgID);
rc = TRUE;
}
else
{
DPF0("Couldn't find Class Name for ProgID %"DTS"\n", szProgID);
}
RegCloseKey(hkeyProgID);
}
return rc;
}
/**************************************************************************
***************************************************************************/
BOOL FAR PASCAL ProcessCmdLine(HWND hwnd, LPTSTR szCmdLine)
{
BOOL f;
LPTSTR lp;
SCODE status;
CLSID ClsID;
LPWSTR pUnicodeProgID;
if (gfRunWithEmbeddingFlag)
{
srvrMain.cRef++;
gClsID = CLSID_MPLAYER;
gClsIDOLE1Compat = CLSID_OLE1MPLAYER;
if (*gachOpenExtension)
{
/* We accept as a parameter the extension of a registered type.
* If we can find a corresponding Prog ID in the registry and
* a class ID, we register ourselves with that class ID:
*/
if(ProgIDFromExtension(gachOpenExtension, gachProgID, CHAR_COUNT(gachProgID)))
{
#ifndef UNICODE
pUnicodeProgID = AllocateUnicodeString(gachProgID);
#else
pUnicodeProgID = gachProgID;
#endif
if (CLSIDFromProgID(pUnicodeProgID, &ClsID) == S_OK)
{
/* No OLE1 compatibility for this class:
*/
gClsID = gClsIDOLE1Compat = ClsID;
}
else
{
DPF0("Couldn't get CLSID for %"DTS"\n", gachProgID);
}
#ifndef UNICODE
FreeUnicodeString(pUnicodeProgID);
#endif
}
}
if (*gachProgID)
GetClassNameFromProgID(gachProgID, gachClassRoot, CHAR_COUNT(gachClassRoot));
else
LOADSTRING(IDS_CLASSROOT, gachClassRoot);
status = GetScode(CoRegisterClassObject(&gClsID, (IUnknown FAR *)&srvrMain,
CLSCTX_LOCAL_SERVER,
REGCLS_SINGLEUSE, &srvrMain.dwRegCF));
DPF("CoRegisterClassObject\n");
srvrMain.cRef--;
if (status != S_OK)
{
DPF0("CoRegisterClassObject failed with error %08x\n", status);
return FALSE;
}
}
else
InitNewDocObj(&docMain);
if (gfRunWithEmbeddingFlag)
SetEmbeddedObjectFlag(TRUE);
if (*szCmdLine != 0)
{
HCURSOR hcurPrev;
InitDeviceMenu();
hcurPrev = SetCursor(LoadCursor(NULL, IDC_WAIT));
WaitForDeviceMenu();
SetCursor(hcurPrev);
ResolveIfLink(szCmdLine);
/* Change trailing white space to \0 because mci barfs on filenames */
/* with trailing whitespace. */
for (lp = szCmdLine; *lp; lp++);
for (lp--; *lp == TEXT(' ') || *lp == TEXT('\t'); *lp = TEXT('\0'), lp--);
f = OpenMciDevice(szCmdLine, NULL);
if (f)
CreateDocObjFromFile(szCmdLine, &docMain);
if (gfRunWithEmbeddingFlag && !f) {
DPF0("Error opening link, quiting...");
PostMessage(ghwndApp, WM_CLOSE, 0, 0);
}
SetMPlayerIcon();
return f;
}
return TRUE;
}
/**************************************************************************
***************************************************************************/
/* At time of writing, this stuff isn't in Daytona;
*/
#ifndef WS_EX_LEFTSCROLLBAR
#define WS_EX_LEFTSCROLLBAR 0
#define WS_EX_RIGHT 0
#define WS_EX_RTLREADING 0
#endif
BOOL FAR PASCAL AppInit(HANDLE hInst, HANDLE hPrev, LPTSTR szCmdLine)
{
WNDCLASS cls; /* window class structure used for initialization */
TCHAR ach[80];
HCURSOR hcurPrev; /* the pre-hourglass cursor */
/* Get the debug level from the WIN.INI [Debug] section. */
#ifdef DEBUG
if(__iDebugLevel == 0) // So we can set it in the debugger
__iDebugLevel = GetProfileIntA("Debug", "MPlayer", 0);
DPF("debug level %d\n", __iDebugLevel);
#endif
DPF("AppInit: cmdline = '%"DTS"'\n", (LPTSTR)szCmdLine);
/* Save the instance handle in a global variable for later use. */
ghInst = hInst;
/* Retrieve the RTL state of the binary */
LOADSTRING(IDS_IS_RTL, ach);
gfdwFlagsEx = (ach[0] == TEXT('1')) ? WS_EX_LEFTSCROLLBAR | WS_EX_RIGHT | WS_EX_RTLREADING : 0;
LOADSTRING(IDS_MPLAYERWIDTH, ach);
giDefWidth = ATOI(ach);
if (giDefWidth <= 0) //bogus
giDefWidth = DEF_WIDTH;
/* Retrieve the name of the application and store it in <gachAppName>. */
if (!LOADSTRING(IDS_APPNAME, gachAppName))
return Error(ghwndApp, IDS_OUTOFMEMORY);
LOADSTRING(IDS_DEVICEMENUCOMPOUNDFORMAT, aszDeviceMenuCompoundFormat);
LOADSTRING(IDS_DEVICEMENUSIMPLEFORMAT, aszDeviceMenuSimpleFormat);
LOADSTRING(IDS_NOTREADYFORMAT, aszNotReadyFormat);
LOADSTRING(IDS_READYFORMAT, aszReadyFormat);
LoadStatusStrings();
//
// read needed things from the [Intl] section of WIN.INI
//
GetIntlSpecs();
/* Enable / disable the buttons, and display everything */
/* unless we were run as an OLE server....*/
ScanCmdLine(szCmdLine);
gszCmdLine = szCmdLine;
//Truncate if string is longer than MAX_PATH after ScanCmdLine()
// due to the inability to handle longer strings in following modules
if (STRLEN(gszCmdLine) >= MAX_PATH)
{
gszCmdLine[MAX_PATH - 1] = TEXT('\0');
}
if (!toolbarInit() ||
!InitMCI(hPrev, hInst) ||
!ControlInit (hInst)) {
Error(NULL, IDS_OUTOFMEMORY);
return FALSE;
}
if (!(hAccel = LoadAccelerators(hInst, MAKEINTRESOURCE(MPLAYERACCEL)))) {
Error(NULL, IDS_OUTOFMEMORY);
return FALSE;
}
/* This rather obscure call is to get the number of entries
* in the accelerator table to pass to IsAccelerator.
* It isn't entirely obvious why IsAccelerator needs to be
* told how many entries there are.
*/
if (gfRunWithEmbeddingFlag)
gcAccelEntries = CopyAcceleratorTable(hAccel, NULL, 0);
/* Make the dialog box's icon identical to the MPlayer icon */
hiconApp = LoadIcon(ghInst, MAKEINTRESOURCE(APPICON));
if (!hPrev) {
cls.lpszClassName = aszTrackClass;
cls.lpfnWndProc = fnMPlayerTrackMap;
cls.style = CS_VREDRAW;
cls.hCursor = LoadCursor(NULL,IDC_ARROW);
cls.hIcon = NULL;
cls.lpszMenuName = NULL;
cls.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
cls.hInstance = ghInst;
cls.cbClsExtra = 0;
cls.cbWndExtra = 0;
RegisterClass(&cls);
/*
* Initialize and register the "MPlayer" class.
*
*/
cls.lpszClassName = aszMPlayer;
cls.lpfnWndProc = MPlayerWndProc;
cls.style = CS_VREDRAW;
cls.hCursor = LoadCursor(NULL,IDC_ARROW);
cls.hIcon = hiconApp;
cls.lpszMenuName = NULL;
cls.hbrBackground = (HBRUSH)(COLOR_BTNFACE + 1);
cls.hInstance = ghInst;
cls.cbClsExtra = 0;
cls.cbWndExtra = DLGWINDOWEXTRA;
RegisterClass(&cls);
}
// set ghInstPrev to the handle of the first mplayer instance by
// FindWindow (hPrev will always be NULL). This global is checked
// by window positioning code to behave differently for the second
// and subsequent instances - so make sure it is NULL in the first case
// and non-null in the others.
// note we can't check for the window title, only the class, since
// in play-only mode, the window title is *just* the name of the file.
ghInstPrev = FindWindow(aszMPlayer, NULL);
/*
* Retain a pointer to the command line parameter string so that the player
* can automatically open a file or device if one was specified on the
* command line.
*
*/
if(!InitInstance (hInst))
return FALSE;
gwHeightAdjust = 2 * GetSystemMetrics(SM_CYFRAME) +
GetSystemMetrics(SM_CYCAPTION) +
GetSystemMetrics(SM_CYBORDER) +
GetSystemMetrics(SM_CYMENU);
/* create the main (control) window */
ghwndApp = CreateWindowEx(gfdwFlagsEx,
aszMPlayer,
gachAppName,
WS_THICKFRAME | WS_OVERLAPPED | WS_CAPTION |
WS_CLIPCHILDREN | WS_SYSMENU | WS_MINIMIZEBOX,
CW_USEDEFAULT,
0,
giDefWidth,
MAX_NORMAL_HEIGHT + gwHeightAdjust,
NULL, // no parent
NULL, // use class menu
hInst, // instance
NULL); // no data
if (!ghwndApp) {
DPF0("CreateWindowEx failed for main window: Error %d\n", GetLastError());
return FALSE;
}
DPF("\n**********After create set\n");
/****
Removed from WM_CREATE so that it can be called similar to the way sdemo1
i.e. after the create window call has completed
May be completely unnecessary
*****/
/* Process dragged and dropped file */
DragAcceptFiles(ghwndApp, TRUE);
/* We will check that this has been filled in before calling
* CoDisconnectObject. It should be non-null if an instance of the OLE
* server has been created.
*/
docMain.hwnd = NULL;
/* Initialize the OLE server if appropriate.
* If we don't initialize OLE here, a Copy will cause it to be initialized:
*/
if (gfRunWithEmbeddingFlag)
{
if (InitOLE(&gfOleInitialized, &lpMalloc))
InitServer(ghwndApp, ghInst);
else
return FALSE;
}
if (!gfRunWithEmbeddingFlag && (!gfPlayOnly || gszCmdLine[0]==0) && !gfOpenDialog)
{
ShowWindow(ghwndApp,giCmdShow);
if (giCmdShow != SW_SHOWNORMAL)
Layout();
UpdateDisplay();
UpdateWindow(ghwndApp);
}
/* Show the 'Wait' cursor in case this takes a long time */
hcurPrev = SetCursor(LoadCursor(NULL, IDC_WAIT));
/*
* Read the SYSTEM.INI and MPLAYER.INI files to see what devices
* are available.
*/
if (gfPlayOnly)
garMciDevices[0].wDeviceType = DTMCI_CANPLAY | DTMCI_FILEDEV;
//
// this may open a file....
//
if (!ProcessCmdLine(ghwndApp,gszCmdLine)) {
DPF0("ProcessCmdLine failed\n");
return FALSE;
}
/* Restore the original cursor */
if (hcurPrev)
SetCursor(hcurPrev);
/* Check for options to put up initial dialog etc.:
*/
if (gfOpenDialog)
{
if (!PostOpenDialogMessage())
{
PostMessage(ghwndApp, WM_CLOSE, 0, 0);
return FALSE;
}
}
/* The "Play" button should have the focus initially */
if (!gfRunWithEmbeddingFlag && !gfOpenDialog)
{
//SetFocus(ghwndToolbar); //setting focus messes up the menu access
//using the ALT key
// HACK!!! Want play button
if (gfPlayOnly) {
if (gwDeviceID == (UINT)0 || !(gwDeviceType & DTMCI_CANWINDOW)) {
gfPlayOnly = FALSE;
SizeMPlayer();
}
ShowWindow(ghwndApp,giCmdShow);
if (giCmdShow != SW_SHOWNORMAL)
Layout();
/* stop any system sound from playing so the MCI device
can have it HACK!!!! */
sndPlaySound(NULL, 0);
if (gwDeviceID)
PostMessage(ghwndApp, WM_COMMAND, (WPARAM)ID_PLAY, 0);
}
}
return TRUE;
}
/* PostOpenDialogMessage
*
* This routine is called if /open was in the command line.
* If there was also an open option (/MIDI, /VFW or /WAVE in the command line,
* it causes an Open dialog to be displayed, as would appear via the Device menu.
* Otherwise it simulates File.Open.
*
* When this is called, the main window is hidden. The window must be made
* visible when the dialog is dismissed. Calling CompleteOpenDialog(TRUE)
* will achieve this.
*
* Returns TRUE if a message was posted, otherwise FALSE.
*
*
* Global variables referenced:
*
* gachOpenExtension
* ghwndApp
*
*
* Andrew Bell, 1 July 1994
*
*/
BOOL PostOpenDialogMessage( )
{
BOOL Result = TRUE;
InitDeviceMenu();
WaitForDeviceMenu();
if (*gachOpenExtension)
{
if (gwNumDevices)
{
/* If we've got here, the user specified a device, and that's
* the only one the Device menu lists, so go ahead and open it:
*/
PostMessage(ghwndApp, WM_COMMAND, IDM_DEVICE0 + 1, 0);
}
else
{
/* Couldn't find a device. Put up an error message then close
* MPlayer down:
*/
SendMessage(ghwndApp, WM_NOMCIDEVICES, 0, 0);
Result = FALSE;
}
}
else
{
/* No option specified, so put up the generic open dialog:
*/
PostMessage(ghwndApp, WM_COMMAND, IDM_OPEN, 0);
}
return Result;
}
/* CompleteOpenDialog
*
* This should be called after the initial Open dialog (i.e. if gfOpenDialog
* is TRUE). It makes MPlayer visible if a file was selected, otherwise posts
* a close message to the app.
*
*
* Global variables referenced:
*
* ghwndApp
* gfOpenDialog
* gfPlayOnly
*
*
* Andrew Bell, 1 July 1994
*/
VOID FAR PASCAL CompleteOpenDialog(BOOL FileSelected)
{
if (FileSelected)
{
/* We were invoked with /open, and came up invisible.
* Now make ourselves visible:
*/
gfOpenDialog = FALSE; // Used on init only
ShowWindow(ghwndApp, SW_SHOWNORMAL);
if (gfPlayOnly)
PostMessage(ghwndApp, WM_COMMAND, (WPARAM)ID_PLAY, 0);
}
else
{
/* We were invoked with /open, and user cancelled
* out of the open dialog.
*/
PostMessage(ghwndApp, WM_CLOSE, 0, 0);
}
}
void SubClassTrackbarWindow();
void CreateControls()
{
int i;
#define APP_NUMTOOLS 7
static int aiButton[] = { BTN_PLAY, BTN_STOP,BTN_EJECT,
BTN_HOME, BTN_RWD, BTN_FWD,BTN_END};
/*
* CREATE THE CONTROLS NEEDED FOR THE CONTROL PANEL DISPLAY
* in the proper order so tabbing z-order works logically
*/
/******* Make the Track bar ********/
if (!ghwndTrackbar)
ghwndTrackbar = CreateWindowEx(gfdwFlagsEx,
TRACKBAR_CLASS,
NULL,
TBS_ENABLESELRANGE |
(gfPlayOnly ? TBS_BOTH | TBS_NOTICKS : 0 ) |
WS_CLIPSIBLINGS | WS_CHILD | WS_VISIBLE | WS_TABSTOP,
0,
0,
0,
0,
ghwndApp,
NULL,
ghInst,
NULL);
SubClassTrackbarWindow();
/******* Make the TransportButtons Toolbar ********/
if (!ghwndToolbar) {
ghwndToolbar = toolbarCreateMain(ghwndApp);
#if 0 //VIJR-TB
CreateWindowEx(gfdwFlagsEx,
szToolBarClass,
NULL,
WS_CHILD | WS_VISIBLE | WS_TABSTOP |
WS_CLIPSIBLINGS,
0,
0,
0,
0,
ghwndApp,
NULL,
ghInst,
NULL);
#endif
/* set the bitmap and button size to be used for this toolbar */
#if 0 //VIJR-TB
pt.x = BUTTONWIDTH;
pt.y = BUTTONHEIGHT;
toolbarSetBitmap(ghwndToolbar, ghInst, IDBMP_TOOLBAR, pt);
#endif
for (i = 0; i < 2; i++) {
toolbarAddTool(ghwndToolbar, aiButton[i], TBINDEX_MAIN, BTNST_UP);
}
}
/* Create a font for use in the track map and embedded object captions. */
if (ghfontMap == NULL) {
LOGFONT lf;
SystemParametersInfo(SPI_GETICONTITLELOGFONT, sizeof(lf), (LPVOID)&lf,
0);
ghfontMap = CreateFontIndirect(&lf);
}
/******* we have been here before *******/
if (ghwndFSArrows)
return;
/******* add more buttons to the toolbar ******/
for (i = 2; i < APP_NUMTOOLS; i++) {
if (i==3)
toolbarAddTool(ghwndToolbar, BTN_SEP, TBINDEX_MAIN, 0);
toolbarAddTool(ghwndToolbar, aiButton[i], TBINDEX_MAIN, BTNST_UP);
}
/******* load menus ********/
/* Set up the menu system for this dialog */
if (ghMenu == NULL)
ghMenu = LoadMenu(ghInst, aszMPlayer);
ghDeviceMenu = GetSubMenu(ghMenu, 2);
/******* Make the Arrows for the Scrollbar Toolbar ********/
// No tabstop, because arrows would steal focus from thumb
ghwndFSArrows = toolbarCreateArrows(ghwndApp);
#if 0 //VIJR-TB
CreateWindowEx(gfdwFlagsEx,
szToolBarClass,
NULL,
WS_CLIPSIBLINGS | WS_CHILD|WS_VISIBLE,
0,
0,
0,
0,
ghwndApp,
NULL,
ghInst,
NULL);
#endif
/* set the bmp and button size to be used for this toolbar*/
toolbarAddTool(ghwndFSArrows, ARROW_PREV, TBINDEX_ARROWS, BTNST_UP);
toolbarAddTool(ghwndFSArrows, ARROW_NEXT, TBINDEX_ARROWS, BTNST_UP);
/******* Make the Mark In / Mark Out toolbar ********/
ghwndMark = toolbarCreateMark(ghwndApp);
#if 0 //VIJR-TB
CreateWindowEx(gfdwFlagsEx,
szToolBarClass,
NULL,
WS_TABSTOP | WS_CLIPSIBLINGS | WS_CHILD |
WS_VISIBLE,
0,
0,
0,
0,
ghwndApp,
NULL,
ghInst,
NULL);
#endif
/* set the bmp and button size to be used for this toolbar */
toolbarAddTool(ghwndMark, BTN_MARKIN, TBINDEX_MARK, BTNST_UP);
toolbarAddTool(ghwndMark, BTN_MARKOUT, TBINDEX_MARK, BTNST_UP);
/******* Make the Map ********/
ghwndMap =
CreateWindowEx(gfdwFlagsEx,
TEXT("MPlayerTrackMap"),
NULL,
WS_GROUP | WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS,
0,
0,
0,
0,
ghwndApp,
NULL,
ghInst,
NULL);
#if DBG
if( ghwndMap == NULL)
{
DPF0( "CreateWindowEx(MPlayerTrackMap, ...) failed: Error %d\n", GetLastError());
}
#endif
/******* Make the Static Text ********/
ghwndStatic = CreateStaticStatusWindow(ghwndApp, FALSE);
#if 0 //VIJR-SB
CreateWindowEx(gfdwFlagsEx,
TEXT("SText"),
NULL,
WS_GROUP | WS_CHILD | WS_VISIBLE |
WS_CLIPSIBLINGS | SS_LEFT,
0,
0,
0,
0,
ghwndApp,
NULL,
ghInst,
NULL);
#endif
////SetWindowText(ghwndStatic, TEXT("Scale: Time (hh:mm)"));
SendMessage(ghwndStatic, WM_SETFONT, (UINT_PTR)ghfontMap, 0);
}
void FAR PASCAL InitMPlayerDialog(HWND hwnd)
{
ghwndApp = hwnd;
CreateControls();
/* Get the name of the Help and ini file */
LOADSTRING(IDS_INIFILE, gszMPlayerIni);
LOADSTRING(IDS_HELPFILE,gszHelpFileName);
LOADSTRING(IDS_HTMLHELPFILE,gszHtmlHelpFileName);
ReadDefaults();
}
/* Use a default size or the size we pass in to size mplayer.
* For PlayOnly version, this size is the MCI Window Client size.
* For regular mplayer, this is the full size of the main window.
* If we are inplace editing do the same as for PLayOnly.
*/
void FAR PASCAL SetMPlayerSize(LPRECT prc)
{
RECT rc;
UINT w=SWP_NOMOVE;
if (prc && !IsRectEmpty(prc))
rc = *prc;
else if (gfPlayOnly || gfOle2IPEditing)
rc = grcSize;
else
SetRect(&rc, 0, 0, giDefWidth, DEF_HEIGHT);
//
// if the passed rectangle has a non zero (left,top) move MPlayer
// also (ie remove the SWP_NOMOVE flag)
//
if (rc.left != 0 || rc.top != 0)
w = 0;
if (gfPlayOnly || gfOle2IPEditing) {
if (IsRectEmpty(&rc)) {
GetClientRect(ghwndApp, &rc);
rc.bottom = 0;
}
rc.bottom += TOOLBAR_HEIGHT;
AdjustWindowRect(&rc,
(DWORD)GetWindowLongPtr(ghwndApp, GWL_STYLE),
GetMenu(ghwndApp) != NULL);
}
else
if (gfWinIniChange)
AdjustWindowRect(&rc,
(DWORD)GetWindowLongPtr(ghwndApp, GWL_STYLE),
GetMenu(ghwndApp) != NULL);
SetWindowPos(ghwndApp,
HWND_TOP,
rc.left,
rc.top,
rc.right-rc.left,
rc.bottom-rc.top,
w | SWP_NOZORDER | SWP_NOACTIVATE);
}
/* InitDeviceMenuThread
*
* This is now executed as a separate thread.
* On completion, sets the event so that the File and Device menus
* can be accessed.
* If, after querying the devices, we find none, post a message to
* the main window to inform it.
*/
void InitDeviceMenuThread(LPVOID pUnreferenced)
{
UNREFERENCED_PARAMETER(pUnreferenced);
/* Wait until the command line has been scanned:
*/
WaitForSingleObject(heventCmdLineScanned, INFINITE);
/* We don't need this event any more:
*/
CloseHandle(heventCmdLineScanned);
if (ghMenu == NULL) {
ghMenu = LoadMenu(ghInst, aszMPlayer);
ghDeviceMenu = GetSubMenu(ghMenu, 2);
}
QueryDevices();
BuildDeviceMenu();
BuildFilter();
if (gwDeviceID)
FindDeviceMCI();
SetEvent(heventDeviceMenuBuilt);
if (gwNumDevices == 0)
PostMessage(ghwndApp, WM_NOMCIDEVICES, 0, 0);
ExitThread(0);
}
/* InitDeviceMenu
*
* Initialize and build the Devices menu.
*
* This now spins off a separate thread to enable the UI to come up
* more quickly. This is especially important when there is a slow
* CD device installed, though crappy CD drivers which run single threaded
* at dispatch level will still give performance degradation.
*
* If the user selects either the File or the Device menu, the UI
* must wait until the device menu has been built. Typically this
* should not be longer than about 2 seconds after the app started.
*
*/
void FAR PASCAL InitDeviceMenu()
{
DWORD ThreadID;
HANDLE hThread;
static BOOL CalledOnce = FALSE;
/* This should only ever be called by the main thread, so we don't need
* to protect access to CalledOnce:
*/
if (CalledOnce == FALSE)
{
CalledOnce = TRUE;
#ifdef DEBUG
if (WaitForSingleObject(heventDeviceMenuBuilt, 0) == WAIT_OBJECT_0)
DPF0("Expected heventDeviceMenuBuilt to be non-signaled\n");
#endif
hThread = CreateThread(NULL, /* Default security attributes */
0, /* Stack size same as primary thread's */
(LPTHREAD_START_ROUTINE)InitDeviceMenuThread,
NULL, /* Parameter to start routine */
0, /* Thread runs immediately */
&ThreadID);
if(hThread)
CloseHandle(hThread);
else
{
DPF0("CreateThread failed");
/* This is unlikely to happen, but the only thing to do
* is set the event, so that the UI doesn't hang.
*/
SetEvent(heventDeviceMenuBuilt);
/* What if SetEvent failed?!
*/
}
}
}
/* WaitForDeviceMenu
*
* This routine calls MsgWaitForMultipleObjects instead of WaitForSingleObject
* because some MCI devices do things like realizing palettes, which may
* require some messages to be dispatched. Otherwise we can hit a deadlock.
*
* Andrew Bell (andrewbe), 8 April 1995
*/
void WaitForDeviceMenu()
{
DWORD Result;
while ((Result = MsgWaitForMultipleObjects(1,
&heventDeviceMenuBuilt,
FALSE,
INFINITE,
QS_ALLINPUT)) != WAIT_OBJECT_0)
{
MSG msg;
if (Result == (DWORD)-1)
{
DPF0("MsgWaitForMultipleObjects failed: Error %d\n", GetLastError());
return;
}
while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
DispatchMessage(&msg);
}
}
/*
* SizeMPlayer()
*
*/
void FAR PASCAL SizeMPlayer()
{
RECT rc;
HWND hwndPB;
if(!gfOle2IPEditing)
CreateControls();
if (gfPlayOnly) {
/* Remember our size before we shrink it so we can go back to it. */
GetWindowRect(ghwndApp, &grcSave);
SetMenu(ghwndApp, NULL);
SendMessage(ghwndTrackbar, TBM_CLEARTICS, FALSE, 0);
/* Next preserve the current size of the window as the size */
/* for the new built-in MCI window. */
if ((hwndPB = GetWindowMCI()) != NULL) {
if (IsIconic(hwndPB))
ShowWindow(hwndPB, SW_RESTORE);
GetClientRect(hwndPB, &rc);
ClientToScreen(hwndPB, (LPPOINT)&rc);
ClientToScreen(hwndPB, (LPPOINT)&rc+1);
ShowWindowMCI(FALSE);
} else { // not a windowed device?
SetRectEmpty(&rc);
}
if (ghwndMap) {
//If we are inplace editing set the toolbar control states appropriately.
if(!gfOle2IPEditing) {
ShowWindow(ghwndMap, SW_HIDE);
ShowWindow(ghwndMark, SW_HIDE);
ShowWindow(ghwndFSArrows, SW_HIDE);
ShowWindow(ghwndStatic, SW_HIDE);
ShowWindow(ghwndTrackbar, SW_SHOW);
toolbarModifyState(ghwndToolbar, BTN_EJECT, TBINDEX_MAIN, BTNST_GRAYED);
toolbarModifyState(ghwndToolbar, BTN_HOME, TBINDEX_MAIN, BTNST_GRAYED);
toolbarModifyState(ghwndToolbar, BTN_END, TBINDEX_MAIN, BTNST_GRAYED);
toolbarModifyState(ghwndToolbar, BTN_RWD, TBINDEX_MAIN, BTNST_GRAYED);
toolbarModifyState(ghwndToolbar, BTN_FWD, TBINDEX_MAIN, BTNST_GRAYED);
toolbarModifyState(ghwndMark, BTN_MARKIN, TBINDEX_MARK, BTNST_GRAYED);
toolbarModifyState(ghwndMark, BTN_MARKOUT, TBINDEX_MARK, BTNST_GRAYED);
toolbarModifyState(ghwndFSArrows, ARROW_PREV, TBINDEX_ARROWS, BTNST_GRAYED);
toolbarModifyState(ghwndFSArrows, ARROW_NEXT, TBINDEX_ARROWS, BTNST_GRAYED);
} else {
ShowWindow(ghwndMap, SW_SHOW);
ShowWindow(ghwndMark, SW_SHOW);
ShowWindow(ghwndFSArrows, SW_SHOW);
ShowWindow(ghwndStatic, SW_SHOW);
}
}
SendMessage(ghwndTrackbar, TBM_SHOWTICS, FALSE, FALSE);
CreateWindowMCI();
SetMPlayerSize(&rc);
} else {
if (ghwndMCI) {
GetClientRect(ghwndMCI, &rc);
ClientToScreen(ghwndMCI, (LPPOINT)&rc);
ClientToScreen(ghwndMCI, (LPPOINT)&rc+1);
/*
** Make sure our hook proc doesn't post IDM_CLOSE!
** The WM_CLOSE message will set the playback window back
** to the video playback window by calling SetWindowMCI(NULL);
*/
gfSeenPBCloseMsg = TRUE;
SendMessage(ghwndMCI, WM_CLOSE, 0, 0);
/*
** Subclass the real video window now. This will also set
** gfSeenPBCloseMsg to FALSE.
*/
SubClassMCIWindow();
} else {
GetWindowRect(ghwndApp,&rc);
OffsetRect(&grcSave, rc.left - grcSave.left,
rc.top - grcSave.top);
SetRectEmpty(&rc);
}
SendMessage(ghwndTrackbar, TBM_SHOWTICS, TRUE, FALSE);
ShowWindow(ghwndMap, SW_SHOW);
ShowWindow(ghwndMark, SW_SHOW);
ShowWindow(ghwndStatic, SW_SHOW);
/* If we remembered a size, use it, else use default */
SetMPlayerSize(&grcSave);
InvalidateRect(ghwndStatic, NULL, TRUE); // why is this necessary?
if (gwDeviceID && (gwDeviceType & DTMCI_CANWINDOW)) {
/* make the playback window the size our MCIWindow was and */
/* show the playback window and stretch to it ? */
if (!IsRectEmpty(&rc))
PutWindowMCI(&rc);
SmartWindowPosition(GetWindowMCI(), ghwndApp, gfOle2Open);
ShowWindowMCI(TRUE);
SetForegroundWindow(ghwndApp);
}
ShowWindow(ghwndFSArrows, SW_SHOW);
}
InvalidateRect(ghwndApp, NULL, TRUE);
gfValidCaption = FALSE;
gwStatus = (UINT)(-1); // force a full update
UpdateDisplay();
}
/*
* pKeyBuf = LoadProfileKeys(lszProfile, lszSection)
*
* Load the keywords from the <szSection> section of the Windows profile
* file named <szProfile>. Allocate buffer space and return a pointer to it.
* On failure, return NULL.
*
* The INT pointed to by pSize will be filled in with the size of the
* buffer returned, so that checks for corruption can be made when it's freed.
*/
PTSTR NEAR PASCAL LoadProfileKeys(
LPTSTR lszProfile, /* the name of the profile file to access */
LPTSTR lszSection, /* the section name to look under */
PUINT pSize)
{
PTSTR pKeyBuf; /* pointer to the section's key list */
PTSTR pKeyBufNew;
UINT wSize; /* the size of <pKeyBuf> */
////DPF("LoadProfileKeys('%"DTS"', '%"DTS"')\n", (LPTSTR) lszProfile, (LPTSTR)lszSection);
/*
* Load all keynames present in the <lszSection> section of the profile
* file named <lszProfile>.
*
*/
wSize = 256; /* make a wild initial guess */
pKeyBuf = NULL; /* the key list is initially empty */
do {
/* (Re)alloc the space to load the keynames into */
if (pKeyBuf == NULL)
pKeyBuf = AllocMem(wSize);
else {
pKeyBufNew = ReallocMem( (HANDLE)pKeyBuf, wSize, wSize + 256);
if (NULL == pKeyBufNew) {
FreeMem((HANDLE)pKeyBuf, wSize);
}
pKeyBuf = pKeyBufNew;
wSize += 256;
}
if (pKeyBuf == NULL) /* the (re)alloc failed */
return NULL;
/*
* THIS IS A WINDOWS BUG!!! It returns size minus two!!
* (The same feature is present in Windows/NT)
*/
} while (GetPrivateProfileString(lszSection, NULL, aszNULL, pKeyBuf, wSize/sizeof(TCHAR),
lszProfile) >= (wSize/sizeof(TCHAR) - 2));
if (pSize)
*pSize = wSize;
return pKeyBuf;
}
/*
* QueryDevices(void)
*
* Find out what devices are available to the player. and initialize the
* garMciDevices[] array.
*
*/
void NEAR PASCAL QueryDevices(void)
{
PTSTR pch;
PTSTR pchDevices;
PTSTR pchExtensions;
PTSTR pchDevice;
PTSTR pchExt;
TCHAR ach[1024]; /*1024 is the maximum buffer size for a wsprintf call*/
UINT wDeviceType; /* Return value from DeviceTypeMCI() */
INT DevicesSize;
INT ExtensionsSize;
if (gwNumDevices > 0)
return;
/*
* make device zero be the autoopen device.
* its device name will be "" and the files it supports will be "*.*"
*/
LOADSTRING(IDS_ALLFILES, ach);
garMciDevices[0].wDeviceType = DTMCI_CANPLAY | DTMCI_FILEDEV;
garMciDevices[0].szDevice = aszNULL;
garMciDevices[0].szDeviceName = AllocStr(ach);
garMciDevices[0].szFileExt = aszAllFiles;
gwNumDevices = 0;
/* Load the SYSTEM.INI [MCI] section */
/* If the user specified a device to open, build a string containing
* that device alone, and don't bother looking in the registry
* (or system.ini in the case of Win95) for the MCI devices.
*/
if (*gachOpenDevice)
{
LPTSTR pDevice;
DWORD DeviceLength;
pDevice = gachOpenDevice;
DeviceLength = STRING_BYTE_COUNT(pDevice);
DevicesSize = ((DeviceLength + 1) * sizeof *pchDevice);
if (pchDevices = AllocMem(DevicesSize))
CopyMemory(pchDevices, pDevice, DevicesSize);
}
else
{
pchDevices = AllocMem(DevicesSize = 256);
if (pchDevices)
QueryDevicesMCI(pchDevices, DevicesSize);
}
pchExtensions = LoadProfileKeys(aszWinIni, gszWinIniSection, &ExtensionsSize);
if (pchExtensions == NULL || pchDevices == NULL) {
DPF("unable to load extensions section\n");
if (pchExtensions)
FreeMem(pchExtensions, ExtensionsSize);
if (pchDevices)
FreeMem(pchDevices, DevicesSize);
return;
}
/*
* Search through the list of device names found in SYSTEM.INI, looking for
* keywords; if profile was not found, then *gpSystemIniKeyBuf == 0
*
* in SYSTEM.INI:
*
* [MCI]
* device = driver.drv
*
* in WIN.INI:
*
* [MCI Extensions]
* xyz = device
*
* in MPLAYER.INI:
*
* [Devices]
* device = <device type>, <device name>
*
* NOTE: The storage of device information in MPLAYER.INI has been nuked
* for NT - it may speed things up, but where we are changing
* devices regularly after initial setup this is a pain, as deleting
* the INI file regularly gets stale real quick.
*
*/
for (pchDevice = pchDevices;
*pchDevice;
pchDevice += STRLEN(pchDevice)+1) {
//
// we have no info in MPLAYER.INI about this device, so load it and
// ask it.
//
wDeviceType = DeviceTypeMCI(pchDevice, ach, CHAR_COUNT(ach));
//
// if we don't like this device, don't store it
//
if (wDeviceType == DTMCI_ERROR ||
wDeviceType == DTMCI_IGNOREDEVICE ||
!(wDeviceType & DTMCI_CANPLAY)) {
continue;
}
gwNumDevices++;
garMciDevices[gwNumDevices].wDeviceType = wDeviceType;
garMciDevices[gwNumDevices].szDevice = AllocStr(pchDevice);
garMciDevices[gwNumDevices].szDeviceName = AllocStr(ach);
garMciDevices[gwNumDevices].szFileExt = NULL;
//
// now look in the [mci extensions] section in WIN.INI to find
// out the files this device deals with.
//
for (pchExt = pchExtensions; *pchExt; pchExt += STRLEN(pchExt)+1) {
GetProfileString(gszWinIniSection, pchExt, aszNULL, ach, CHAR_COUNT(ach));
if (lstrcmpi(ach, pchDevice) == 0) {
if ((pch = garMciDevices[gwNumDevices].szFileExt) != NULL) {
wsprintf(ach, aszFormatExts, (LPTSTR)pch, (LPTSTR)pchExt);
CharLowerBuff(ach, STRLEN(ach)); // Make sure it's lower case so
// we can use STRSTR if necessary.
FreeStr((HANDLE)pch);
garMciDevices[gwNumDevices].szFileExt = AllocStr(ach);
}
else {
wsprintf(ach, aszFormatExt, (LPTSTR)pchExt);
CharLowerBuff(ach, STRLEN(ach));
garMciDevices[gwNumDevices].szFileExt = AllocStr(ach);
}
}
}
//
// !!!only do this if the device deals with files.
//
if (garMciDevices[gwNumDevices].szFileExt == NULL &&
(garMciDevices[gwNumDevices].wDeviceType & DTMCI_FILEDEV))
garMciDevices[gwNumDevices].szFileExt = aszAllFiles;
#ifdef DEBUG
DPF1("Device:%"DTS"; Name:%"DTS"; Type:%d; Extension:%"DTS"\n",
(LPTSTR)garMciDevices[gwNumDevices].szDevice,
(LPTSTR)garMciDevices[gwNumDevices].szDeviceName,
garMciDevices[gwNumDevices].wDeviceType,
garMciDevices[gwNumDevices].szFileExt
? (LPTSTR)garMciDevices[gwNumDevices].szFileExt
: aszNULL);
#endif
}
/* all done with the system.ini keys so free them */
FreeMem(pchDevices, DevicesSize);
FreeMem(pchExtensions, ExtensionsSize);
}
/*
* BuildDeviceMenu()
*
* Insert all devices into the device menu, we only want devices that
* support the MCI_PLAY command.
*
* Add "..." to the menu for devices that support files.
*
*/
void NEAR PASCAL BuildDeviceMenu()
{
int i;
TCHAR ach[128];
if (gwNumDevices == 0)
return;
DeleteMenu(ghDeviceMenu, IDM_NONE, MF_BYCOMMAND);
//
// start at device '1' because device 0 is the auto open device
//
for (i=1; i<=(int)gwNumDevices; i++) {
//
// we only care about devices that can play!
//
if (!(garMciDevices[i].wDeviceType & DTMCI_CANPLAY))
continue;
if (garMciDevices[i].wDeviceType & DTMCI_SIMPLEDEV)
wsprintf(ach, aszDeviceMenuSimpleFormat, i, (LPTSTR)garMciDevices[i].szDeviceName);
else if (garMciDevices[i].wDeviceType & DTMCI_FILEDEV)
wsprintf(ach, aszDeviceMenuCompoundFormat, i, (LPTSTR)garMciDevices[i].szDeviceName);
else
continue;
InsertMenu(ghDeviceMenu, i-1, MF_STRING|MF_BYPOSITION, IDM_DEVICE0+i, ach);
}
}
/*
* BuildFilter()
*
* build the filter to be used with GetOpenFileName()
*
* the filter will look like this...
*
* DEVICE1 (*.111)
* DEVICE2 (*.222)
*
* DEVICEn (*.333)
*
* All Files (*.*)
*
*/
void NEAR PASCAL BuildFilter()
{
UINT w;
PTSTR pch;
PTSTR pchFilterNew;
#define INITIAL_SIZE ( 8192 * sizeof( TCHAR ) )
pch = gpchFilter = AllocMem( INITIAL_SIZE ); //!!!
if (gpchFilter == NULL)
return; //!!!
for (w=1; w<=gwNumDevices; w++)
{
if (garMciDevices[w].wDeviceType == DTMCI_ERROR ||
garMciDevices[w].wDeviceType == DTMCI_IGNOREDEVICE)
continue;
if (garMciDevices[w].wDeviceType & DTMCI_FILEDEV ||
lstrcmpi(TEXT("CDAudio"), garMciDevices[w].szDevice) == 0) //Hack!!! This will list *.cda files
//in the open dialog box. MCI by itself
//does not handle playing of *.cda files
//but media player does locally.
{
wsprintf(pch, aszFormatFilter,
(LPTSTR)garMciDevices[w].szDeviceName,
(LPTSTR)garMciDevices[w].szFileExt);
pch += STRLEN(pch)+1;
lstrcpy(pch, garMciDevices[w].szFileExt);
pch += STRLEN(pch)+1;
}
else
{
lstrcpy(pch, garMciDevices[w].szDeviceName);
pch += STRLEN(pch)+1;
lstrcpy(pch, aszBlank);
pch += STRLEN(pch)+1;
}
}
//
// now add "All Files" (device 0) last
//
wsprintf(pch, aszFormatFilter, (LPTSTR)garMciDevices[0].szDeviceName, (LPTSTR)garMciDevices[0].szFileExt);
pch += STRLEN(pch)+1;
lstrcpy(pch, garMciDevices[0].szFileExt);
pch += STRLEN(pch)+1;
//
// all done!
//
*pch++ = 0;
//
// realloc this down to size
//
pchFilterNew = ReallocMem( gpchFilter,
INITIAL_SIZE,
(UINT)(pch-gpchFilter)*sizeof(*pch) );
if (NULL == pchFilterNew) {
FreeMem(gpchFilter, 0);
}
gpchFilter = pchFilterNew;
}
/* Call every time we open a different device to get the default options */
void FAR PASCAL ReadOptions(void)
{
TCHAR ach[20];
if (gwDeviceID == (UINT)0)
return;
/* Get the options and scale style to be used for this device */
GetDeviceNameMCI(ach, BYTE_COUNT(ach));
ReadRegistryData(aszOptionsSection, ach, NULL, (LPBYTE)&gwOptions, sizeof gwOptions);
if (gwOptions == 0)
gwOptions |= OPT_BAR | OPT_TITLE | OPT_BORDER;
gwOptions |= OPT_PLAY; /* Always default to play in place. */
gwCurScale = gwOptions & OPT_SCALE;
switch (gwCurScale) {
case ID_TIME:
case ID_FRAMES:
case ID_TRACKS:
break;
default:
/* Default CD scale to tracks rather than time.
* Much more sensible:
*/
if ((gwDeviceType & DTMCI_DEVICE) == DTMCI_CDAUDIO)
gwCurScale = ID_TRACKS;
else
gwCurScale = ID_TIME;
break;
}
}
/*
* ReadDefaults()
*
* Read the user defaults from the MPLAYER.INI file.
*
*/
void NEAR PASCAL ReadDefaults(void)
{
TCHAR sz[20];
TCHAR *pch;
int x,y,w,h;
UINT f;
*sz = TEXT('\0');
ReadRegistryData(aszOptionsSection, aszDisplayPosition, NULL, (LPBYTE)sz, BYTE_COUNT(sz));
x = ATOI(sz);
pch = sz;
while (*pch && *pch++ != TEXT(','))
;
if (*pch) {
y = ATOI(pch);
while (*pch && *pch++ != TEXT(','))
;
if (*pch) {
w = ATOI(pch);
while (*pch && *pch++ != TEXT(','))
;
if (*pch) {
h = ATOI(pch);
f = SWP_NOACTIVATE | SWP_NOZORDER;
if (w == 0 || h == 0)
f |= SWP_NOSIZE;
if (!ghInstPrev && x >= 0 && y >= 0
&& x < GetSystemMetrics(SM_CXSCREEN)
&& y < GetSystemMetrics(SM_CYSCREEN)) {
SetWindowPos(ghwndApp, NULL, x, y, w, h, f);
// Remember this so even if we come up in teeny mode and
// someone exits, it'll have these numbers to save
SetRect(&grcSave, x, y, x + w, y + h);
} else {
SetWindowPos(ghwndApp, NULL, 0, 0, w, h, f | SWP_NOMOVE);
}
}
}
}
}
/* Call every time we close a device to save its options */
void FAR PASCAL WriteOutOptions(void)
{
if (gwCurDevice) {
/* Put the scale in the proper bits of the Options */
gwOptions = (gwOptions & ~OPT_SCALE) | gwCurScale;
WriteRegistryData(aszOptionsSection,
garMciDevices[gwCurDevice].szDevice, REG_DWORD, (LPBYTE)&gwOptions, sizeof gwOptions);
}
}
void FAR PASCAL WriteOutPosition(void)
{
TCHAR sz[20];
WINDOWPLACEMENT wp;
//
// Only the first instance will save settings.
// Play only mode will save the remembered rect for when it was in
// regular mode. If no rect is remembered, don't write anything.
//
if (ghInstPrev || (gfPlayOnly && grcSave.left == 0))
return;
/* Save the size it was when it was Normal because the next time */
/* MPlayer comes up, it won't be in reduced mode. */
/* Only valid if some number has been saved. */
if (gfPlayOnly)
wp.rcNormalPosition = grcSave;
else {
wp.length = sizeof(WINDOWPLACEMENT);
GetWindowPlacement(ghwndApp, &wp);
}
wsprintf(sz, aszPositionFormat,
wp.rcNormalPosition.left,
wp.rcNormalPosition.top,
wp.rcNormalPosition.right - wp.rcNormalPosition.left,
wp.rcNormalPosition.bottom - wp.rcNormalPosition.top);
WriteRegistryData(aszOptionsSection, aszDisplayPosition, REG_SZ, (LPBYTE)sz, STRING_BYTE_COUNT(sz));
}
BOOL FAR PASCAL GetIntlSpecs()
{
TCHAR szTmp[2];
szTmp[0] = chDecimal;
szTmp[1] = 0;
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, szTmp, CHAR_COUNT(szTmp));
chDecimal = szTmp[0];
szTmp[0] = chTime;
szTmp[1] = 0;
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIME, szTmp, CHAR_COUNT(szTmp));
chTime = szTmp[0];
szTmp[0] = chLzero;
szTmp[1] = 0;
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, szTmp, CHAR_COUNT(szTmp));
chLzero = szTmp[0];
return TRUE;
}
/*----------------------------------------------------------------------------*\
| SmartWindowPosition (HWND hWndDlg, HWND hWndShow)
|
| Description:
| This function attempts to position a dialog box so that it
| does not obscure the hWndShow window. This function is
| typically called during WM_INITDIALOG processing.
|
| Arguments:
| hWndDlg handle of the soon to be displayed dialog
| hWndShow handle of the window to keep visible
|
| Returns:
| 1 if the windows overlap and positions were adjusted
| 0 if the windows don't overlap
|
\*----------------------------------------------------------------------------*/
void FAR PASCAL SmartWindowPosition (HWND hWndDlg, HWND hWndShow, BOOL fForce)
{
RECT rc, rcDlg, rcShow;
int iHeight, iWidth;
int dxScreen = GetSystemMetrics(SM_CXSCREEN);
int dyScreen = GetSystemMetrics(SM_CYSCREEN);
if (hWndDlg == NULL || hWndShow == NULL)
return;
GetWindowRect(hWndDlg, &rcDlg);
GetWindowRect(hWndShow, &rcShow);
InflateRect (&rcShow, 5, 5); // allow a small border
if (fForce || IntersectRect(&rc, &rcDlg, &rcShow)){
/* the two do intersect, now figure out where to place */
/* this dialog window. Try to go below the Show window */
/* first and then to the right, top and left. */
/* get the size of this dialog */
iHeight = rcDlg.bottom - rcDlg.top;
iWidth = rcDlg.right - rcDlg.left;
if ((rcShow.top - iHeight - 1) > 0){
/* will fit on top, handle that */
rc.top = rcShow.top - iHeight - 1;
rc.left = (((rcShow.right - rcShow.left)/2) + rcShow.left)
- (iWidth/2);
} else if ((rcShow.bottom + iHeight + 1) < dyScreen){
/* will fit on bottom, go for it */
rc.top = rcShow.bottom + 1;
rc.left = (((rcShow.right - rcShow.left)/2) + rcShow.left)
- (iWidth/2);
} else if ((rcShow.right + iWidth + 1) < dxScreen){
/* will fit to right, go for it */
rc.left = rcShow.right + 1;
rc.top = (((rcShow.bottom - rcShow.top)/2) + rcShow.top)
- (iHeight/2);
} else if ((rcShow.left - iWidth - 1) > 0){
/* will fit to left, do it */
rc.left = rcShow.left - iWidth - 1;
rc.top = (((rcShow.bottom - rcShow.top)/2) + rcShow.top)
- (iHeight/2);
} else {
/* we are hosed, they cannot be placed so that there is */
/* no overlap anywhere. */
/* just leave it alone */
rc = rcDlg;
}
/* make any adjustments necessary to keep it on the screen */
if (rc.left < 0)
rc.left = 0;
else if ((rc.left + iWidth) > dxScreen)
rc.left = dxScreen - iWidth;
if (rc.top < 0)
rc.top = 0;
else if ((rc.top + iHeight) > dyScreen)
rc.top = dyScreen - iHeight;
SetWindowPos(hWndDlg, NULL, rc.left, rc.top, 0, 0,
SWP_NOSIZE|SWP_NOZORDER|SWP_NOACTIVATE);
return;
} // if the windows overlap by default
}