TMyCustomWindowsMediaPlayerではなくいきなりTWindowsMediaPlayerとして実装しても良いのですが、新しいプロパティが必要ない場合の実装のために二段階に分けています。
implementation
uses
ActiveX,
Forms,
MultiMon,
SysUtils,
StdCtrls;
procedure Register;
begin
RegisterComponents('Samples', [TMyWindowsMediaPlayer]);
end;
//------------------------------------------------------------------------------
//common
//myNum.pas
function gfniStrToInt(sNum:
WideString): Int64;
//sNumを整数にして返す。
var
li_Pos, i: Integer;
ls_Tmp: AnsiString;
begin
sNum := WideUpperCase(Trim(sNum));
try
Result := StrToInt64(sNum);
except
ls_Tmp := '';
for i := 1
to Length(sNum)
do begin
li_Pos := Pos(sNum[i], '$X-+0123456789ABCDEF');
if (li_Pos >= 15)
then begin
if (ls_Tmp[1] = '$')
then begin
ls_Tmp := ls_Tmp + sNum[i];
end else begin
//頭に'$'を付け加えて変換できるようにする
//頭に$がないと16進表記はエラーになるのでそれへの対処
ls_Tmp := '$' + ls_Tmp + sNum[i];
end;
end else if (li_Pos >= 5)
then begin
ls_Tmp := ls_Tmp + sNum[i];
end else if ((li_Pos = 1)
or (li_Pos = 2))
and (ls_Tmp = '')
then begin
//16進表記
ls_Tmp := '$';
//'x'や'X'ではだめ
end else if ((li_Pos = 3)
or (li_Pos = 4))
and (ls_Tmp = '')
then begin //and (i = 1) でもよい
//sNum[i]は'-+'のどれか
ls_Tmp := sNum[i];
end else begin
Break;
end;
end;
if (ls_Tmp = '')
then begin
Result := 0;
end else begin
Result := StrToInt64Def(ls_Tmp, 0);
end;
end;
end;
function lfniCeil(X: Extended): Int64;
begin
Result := Trunc(X);
if Frac(X) > 0
then
Inc(Result);
end;
function lfniFloor(X: Extended): Int64;
begin
Result := Trunc(X);
if Frac(X) < 0
then
Dec(Result);
end;
function gfniRoundUp(fNum: Extended): Int64;
//fNumを切り上げて返す
begin
if (fNum >= 0)
then begin
Result := lfniCeil(fNum);
end else begin
Result := lfniFloor(fNum);
end;
end;
function gfniRoundDown(fNum: Extended): Int64;
//fNumを切り下げて返す
begin
if (fNum >= 0)
then begin
Result := lfniFloor(fNum);
end else begin
Result := lfniCeil(fNum);
end;
end;
function gfnsTimeZeroSuppress(sValue:
WideString):
WideString;
//時間表示のゼロサプレス
var
i: Integer;
ls_WSep:
WideString;
begin
//余計なゼロを取り除く
Result := '';
ls_WSep := TimeSeparator;
for i := 1
to Length(sValue)
do begin
if (sValue[i] = '0')
or (sValue[i] = ls_WSep)
then begin
//何もしない
end else begin
Result := Copy(sValue, i, Length(sValue));
Break;
end;
end;
if (Result = '')
then Result := '0';
//空になっちゃったら0にする
end;
function gfnsSecToTimeStr(iSec: Integer):
WideString;
//秒数から'2:04:55'のような形式の文字列を返す
var
li_Hour, li_Min, li_Sec: Integer;
begin
li_Hour := iSec
div 60
div 60;
li_Min := iSec
div 60
mod 60;
li_Sec := iSec
mod 60;
Result := gfnsTimeZeroSuppress(Format('%d:%.2d:%.2d', [li_Hour, li_Min, li_Sec]));
end;
//------------------------------------------------------------------------------
//myFile.pas
function gfnsFileDriveGet(sFile:
WideString):
WideString ;
//ドライブ名を返す。
function lfns_DriveGet(sDrive:
WideString; iIndex: Integer):
WideString;
begin
if (WideUpperCase(sDrive[iIndex])[1]
in [WideChar('A')..WideChar('Z')])
then begin
Result := Copy(sFile, iIndex, 2)
end else begin
Result := '';
end;
end;
function lfns_UncGet(sDrive:
WideString; iIndex, iLen: Integer):
WideString;
//UNC名を返す。
var
i: Integer;
iServer: Integer;
begin
Result := '';
i := iIndex;
iServer := -1;
while (i < iLen)
do begin
if (sDrive[i] = PathDelim)
then begin
if (i = iIndex)
then begin
Exit;
//サーバー名が''
end else begin
if (iServer <> -1)
then begin
if ((iServer + 1) = i)
then begin
Exit;
//共有フォルダ名が''
end else begin
Break;
end;
end else begin
iServer := i;
end;
end;
end;
Inc(i);
end;
if (iServer <> -1)
and (iServer < iLen)
then begin
if (sDrive[i] = PathDelim)
then Dec(i);
Result := Copy(sDrive, iIndex, i - iIndex + 1);
if (Result <> '')
then Result := '\\' + Result;
end;
end;
var
li_Len: Integer;
begin
Result := '';
li_Len := Length(sFile);
if (li_Len >= 2)
then begin
if (sFile[2] = DriveDelim)
then begin
//C:〜
Result := lfns_DriveGet(sFile, 1);
end else if (sFile[1] = PathDelim)
and (sFile[2] = PathDelim)
then begin
if (li_Len >= 8)
and (WideUpperCase(Copy(sFile, 1, 8)) = '\\?\UNC\')
then begin
//\\?\UNC\〜
Result := lfns_UncGet(sFile, 9, li_Len);
end else if (li_Len >= 3)
and (sFile[3] = '?')
then begin
//\\?\〜
if (li_Len >= 6)
and (sFile[6] = DriveDelim)
then begin
Result := lfns_DriveGet(sFile, 5);
end;
end else begin
//\\〜 UNC
Result := lfns_UncGet(sFile, 3, li_Len);
end;
end;
end;
end;
function gfnsFileDirGet(sFile:
WideString):
WideString;
//Unicode対応ExtractFileDir。
//末尾の'\'はつかない。
//ドライブ名のみの場合も'\'はつかない。
//'\temp'このような場合空文字が返る。
var
i: Integer;
begin
Result := '';
if (sFile <> '')
then begin
for i := Length(sFile)
downto 1
do begin
if (sFile[i] = '\')
or (sFile[i] = '/')
then begin
Result := Copy(sFile, 1, i -1);
Break;
end else if (sFile[i] = ':')
then begin
Result := Copy(sFile, 1, i);
Break;
end;
end;
end;
end;
function gfnsFilePathGet(sFile:
WideString):
WideString;
//Unicode対応ExtractFilePath。
//末尾の'\'はつく。
var
i: Integer;
begin
Result := '';
if (sFile <> '')
then begin
for i := Length(sFile)
downto 1
do begin
if (sFile[i] = '\')
or (sFile[i] = '/')
then begin
Result := Copy(sFile, 1, i);
Break;
end else if (sFile[i] = ':')
then begin
Result := Copy(sFile, 1, i) + '\';
Break;
end;
end;
end;
end;
function gfnsFileNameGet(sFile:
WideString):
WideString;
//パスを除いたファイル名を返す
//拡張子はつく
var
i, li_Len, li_Pos: Integer;
begin
Result := '';
if (sFile <> '')
then begin
li_Len := Length(sFile);
li_Pos := li_Len + 1;
//sFileの最後が'\'であった場合への対策
for i := li_Len
downto 1
do begin
if (sFile[i] = '\')
or (sFile[i] = '/')
or(sFile[i] = ':')
then begin
Break;
end;
li_Pos := i;
end;
Result := Copy(sFile, li_Pos, MaxInt);
end;
end;
function gfnsFileExtGet(sFile:
WideString):
WideString;
//Unicode対応ExtractFileExt。
//'.'は返る
var
i: Integer;
begin
Result := '';
for i := Length(sFile)
downto 1
do begin
if (sFile[i] = '\')
or (sFile[i] = '/')
or (sFile[i] = ':')
then begin
//拡張子なし
Break;
end else if (sFile[i] = '.')
then begin;
//拡張子あり
Result := Copy(sFile, i, MaxInt);
Break;
end;
end;
end;
function gfniFileSizeGet(sFile:
WideString): Int64;
//sFileのサイズをByte単位で返す
//http://delwiki.info/?Tips%2F%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%B5%E3%82%A4%E3%82%BA%E3%81%AF%20Int64%20%E3%81%A7
var
lh_File: Cardinal;
lr_Info: TWin32FindDataW;
begin
Result := 0;
FillChar(lr_Info, SizeOf(lr_Info), 0);
lh_File := FindFirstFileW(PWideChar(sFile), lr_Info);
try
if (lh_File <> INVALID_HANDLE_VALUE)
then begin
repeat
if not(BOOL(lr_Info.dwFileAttributes
and FILE_ATTRIBUTE_DIRECTORY))
then begin
//2008-05-28:
Result := lr_Info.nFileSizeHigh * (Int64(MAXDWORD) +1) + lr_Info.nFileSizeLow;
Break;
end;
until not(FindNextFileW(lh_File, lr_Info));
end;
finally
Windows.FindClose(lh_File);
end;
end;
function gfnsFileSizeGet(sFile:
WideString):
WideString;
//sFileのサイズをエクスプローラのプロパティの表示に合わせて単位(B,KB,MB,GB)つきで返す
var
li_Size: Int64;
begin
li_Size := gfniFileSizeGet(sFile);
if (li_Size >= (1024 * 1024 * 1024))
then begin
//GByte
Result := WideFormat('%.2fGB', [gfniRoundDown((gfniRoundUp(li_Size / 1024) / (1024 * 1024)) * 100) / 100]);
end else if (li_Size >= (1024 * 1024))
then begin
//MByte
Result := Format('%.1fMB', [gfniRoundDown((gfniRoundUp(li_Size / 1024) / 1024) * 10) / 10]);
end else if (li_Size >= 1024)
then begin
//KByte
Result := Format('%dKB', [gfniRoundUp(li_Size / 1024)]);
end else begin
//Byte
Result := WideFormat('%dB', [li_Size]);
end;
end;
function gfnbFileExists(sFile:
WideString): Boolean;
//FileExitsのUnicode対応版
var
lh_Handle: THandle;
lr_Info: TWin32FindDataW;
begin
if (sFile = '')
then begin
Result := False;
end else begin
Result := False;
FillChar(lr_Info, SizeOf(lr_Info), 0);
lh_Handle:= FindFirstFileW(PWideChar(sFile), lr_Info);
try
if (lh_Handle<> INVALID_HANDLE_VALUE)
then begin
repeat
if (
WideString(lr_Info.cFileName) <> '.')
and (
WideString(lr_Info.cFileName) <> '..')
and ((lr_Info.dwFileAttributes
and FILE_ATTRIBUTE_DIRECTORY) = 0)
then begin
Result := True;
Break;
end;
until not(FindNextFileW(lh_Handle, lr_Info));
end;
finally
Windows.FindClose(lh_Handle);
end;
end;
end;
//==============================================================================
const
lciWMP_PLAY = 1;
//------------------------------------------------------------------------------
{ TMyCustomWindowsMediaPlayer }
const
lciWMPCONTROL_HEIGHT = 64;
//メディアプレーヤーのシークバーやコントロールボタンのある部分の高さ
constructor TMyCustomWindowsMediaPlayer.Create(AOwner: TComponent);
begin
F_bSetBounds := False;
inherited;
if (ControlInterface <>
nil)
then begin
{$WARN SYMBOL_PLATFORM OFF}
//新しいPlayerオブジェクト
if (ControlInterface.QueryInterface(IWMPPlayer4Disp, F_INewPlayer) <> 0)
then begin
F_INewPlayer :=
nil;
//インターフェース取得に失敗
end;
//新しいControlsオブジェクト
if (ControlInterface.controls.QueryInterface(IWMPControls3Disp, F_INewControls) <> 0)
then begin
F_INewControls :=
nil;
//インターフェース取得に失敗
end;
{$WARN SYMBOL_PLATFORM ON}
end else begin
F_INewPlayer :=
nil;
F_INewControls :=
nil;
end;
settings.volume := 100;
settings.autoStart := False;
settings.invokeURLs := False;
F_SetFullScreen(False);
F_SetEnableContextMenu(True);
F_SetUiMode(uiFull);
F_SetStretchToFit(True);
F_SetWindowlessVideo(False);
F_bSetBounds := True;
F_bMinFlag := False;
end;
destructor TMyCustomWindowsMediaPlayer.Destroy;
begin
if (MediaAssigned)
and (PlayState = wmppsPlaying)
then begin
// controls.stop;
controls.pause;
end;
close;
inherited;
end;
procedure TMyCustomWindowsMediaPlayer.SetBounds(rcRect: TRect);
begin
Self.SetBounds(rcRect.Left, rcRect.Top, rcRect.Right - rcRect.Left, rcRect.Bottom - rcRect.Top);
end;
procedure TMyCustomWindowsMediaPlayer.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
const
lcID_IOLE_INPLACEOBJECT: TGUID = '{00000113-0000-0000-C000-000000000046}';
var
lI_Obj: IOleInPlaceObject;
lrc_Rect: TRect;
begin
if (F_bSetBounds)
and (ComponentState = [])
then begin
//inheritedとlrc_Rectの両方ALeft+AWidth,ATop+AHeightにしないといけない
//これをコメントアウトしないとTMｙWindowsMediaPlayerのLeftとTopが0の時におかしな
//サイズにリサイズされてしまう
//ビデオのオリジナルサイズに合わせてしまったり音声メディアの時は小さくなったり…
// inherited SetBounds(ALeft, ATop, ALeft + AWidth, ATop + AHeight);
lrc_Rect := Rect(ALeft, ATop, ALeft + AWidth, ATop + AHeight);
IDispatch(Self.OleObject).QueryInterface(lcID_IOLE_INPLACEOBJECT, lI_Obj);
lI_Obj.SetObjectRects(lrc_Rect, lrc_Rect);
//↓はあった方がちらつきが少ない
Application.ProcessMessages;
end else begin
inherited;
end;
end;
function TMyCustomWindowsMediaPlayer.newMedia(sFile:
WideString): IWMPMedia;
begin
if (Assigned(F_INewPlayer))
then begin
Result := F_INewPlayer.newMedia(sFile);
end else begin
Result :=
nil;
end;
end;
function TMyCustomWindowsMediaPlayer.IsCD(sFile:
WideString): Boolean;
begin
Result := IsCD(newMedia(sFile));
end;
function TMyCustomWindowsMediaPlayer.IsDVD(sFile:
WideString): Boolean;
begin
Result := IsDVD(newMedia(sFile));
end;
function TMyCustomWindowsMediaPlayer.IsCD(Media: IWMPMedia): Boolean;
begin
Result := Assigned(Media)
and (Copy(Media.sourceURL, 1, 8) = 'wmpcd:
//');
end;
function TMyCustomWindowsMediaPlayer.IsDVD(Media: IWMPMedia): Boolean;
begin
Result := Assigned(Media)
and (Copy(Media.sourceURL, 1, 9) = 'wmpdvd:
//');
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaIsCD: Boolean;
begin
Result := IsCD(currentMedia);
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaIsDVD: Boolean;
begin
Result := IsDVD(currentMedia);
end;
procedure TMyCustomWindowsMediaPlayer.F_SetDisplayWidth (iWidth: Integer);
//幅のセット。
begin
if (uiMode <> uiNone)
then begin
Width := iWidth;
end;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetDisplayHeight(iHeight: Integer);
{
高さのセット。
iHeight はWindowsMediaPlayer全体の高さではなくビデオ表示部の高さ。
}
begin
if (uiMode = uiNone)
then begin
Height := iHeight;
end else if (uiMode <> uiInvisible)
then begin
Height := Height + lciWMPCONTROL_HEIGHT;
end;
end;
function TMyCustomWindowsMediaPlayer.F_GetDisplayWidth: Integer;
//ビデオ表示部の幅を返す
begin
if (uiMode = uiInvisible)
then begin
Result := 0;
end else begin
Result := Width;
end;
end;
function TMyCustomWindowsMediaPlayer.F_GetDisplayHeight: Integer;
//ビデオ表示部の高さを返す
begin
if (uiMode = uiInvisible)
then begin
Result := 0;
end else if (uiMode = uiNone)
then begin
Result := Height;
end else begin
Result := Height - lciWMPCONTROL_HEIGHT;
end;
end;
//ビデオに合わせて幅と高さを計算
function TMyCustomWindowsMediaPlayer.WidthFromHeight(iHeight: Integer): Integer;
begin
if (uiMode = uiMini)
or (uiMode = uiFull)
then begin
Dec(iHeight, lciWMPCONTROL_HEIGHT);
end;
Result := Trunc(iHeight * MediaAspect);
end;
function TMyCustomWindowsMediaPlayer.HeightFromWidth(
const iWidth: Integer): Integer;
begin
Result := Trunc(iWidth / MediaAspect);
if (uiMode = uiMini)
or (uiMode = uiFull)
then begin
Inc(Result, lciWMPCONTROL_HEIGHT);
end;
end;
//フルスクリーンモード
function TMyCustomWindowsMediaPlayer.F_GetFullScreen: Boolean;
begin
Result := F_INewPlayer.fullScreen;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetFullScreen(
const bFullScreen: Boolean);
begin
F_INewPlayer.fullScreen := bFullScreen;
end;
//ポップアップメニューの有効・無効
function TMyCustomWindowsMediaPlayer.F_GetEnableContextMenu: Boolean;
begin
Result := F_INewPlayer.enableContextMenu;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetEnableContextMenu(
const bEnabled: Boolean);
begin
F_INewPlayer.enableContextMenu := bEnabled;
end;
//メディアプレーヤーの外観モード
function TMyCustomWindowsMediaPlayer.F_GetUiMode: TMyWMPuiMode;
begin
if (WideCompareText(F_INewPlayer.uiMode, 'none') = 0)
then begin
Result := uiNone;
end else if (WideCompareText(F_INewPlayer.uiMode, 'mini') = 0)
then begin
Result := uiMini
end else if (WideCompareText(F_INewPlayer.uiMode, 'invisible') = 0)
then begin
Result := uiInvisible;
end else begin
Result := uiFull;
end;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetUiMode(Mode: TMyWMPuiMode);
begin
case Mode
of
uiNone: F_INewPlayer.uiMode := 'none';
uiMini: F_INewPlayer.uiMode := 'mini';
uiInvisible: F_INewPlayer.uiMode := 'invisible';
{uiFull: F_INewPlayer.uiMode := 'full';}
else begin
F_INewPlayer.uiMode := 'full';
end;
end;
end;
//オリジナルサイズ以上に拡大するか
function TMyCustomWindowsMediaPlayer.F_GetStretchToFit: Boolean;
begin
Result := F_INewPlayer.stretchToFit;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetStretchToFit(bStretchToFit: Boolean);
begin
F_INewPlayer.stretchToFit := bStretchToFit;
end;
//オーバーレイウィンドウを使わないか
//Trueで使わない
function TMyCustomWindowsMediaPlayer.F_GetWindowlessVideo: Boolean;
begin
Result := F_INewPlayer.windowlessVideo;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetWindowlessVideo(
const bWindowlessVideo: Boolean);
begin
F_INewPlayer.windowlessVideo := bWindowlessVideo;
end;
//DVDオブジェクト
function TMyCustomWindowsMediaPlayer.F_GetDvd: IWMPDVD;
begin
Result := F_INewPlayer.dvd;
end;
function TMyCustomWindowsMediaPlayer.F_GetMedia: IWMPMedia;
var
l_CdPlayer: IWMPCdrom;
ls_Path:
WideString;
begin
if (F_GetAssigned)
then begin
if (F_GetMediaIsCD)
then begin
//'wmpcd://n/'
ls_Path := F_GetMediaPath;
l_CdPlayer := cdromCollection.Item(gfniStrToInt(Copy(ls_Path, 9, Length(ls_Path) - 9)));
//CDプレーヤー
Result := l_CdPlayer.Playlist.Item[gfniStrToInt(F_GetMediaName)];
end else if (F_GetMediaIsDVD)
then begin
//'wmpdvd//
Result := currentMedia;
end else begin
Result := currentMedia;
end;
end else begin
Result :=
nil;
end;
end;
//currentMediaがあるか
function TMyCustomWindowsMediaPlayer.F_GetAssigned: Boolean;
begin
Result := Assigned(currentMedia);
end;
//メディアにビデオがあるか
function TMyCustomWindowsMediaPlayer.F_GetHasVideo: Boolean;
begin
// Result := gfnbWMPMediaHasVideo(Self);
Result := F_GetAssigned
and (currentMedia.imageSourceHeight > 0)
and (currentMedia.imageSourceWidth > 0);
end;
//ビデオのアスペクト比
function TMyCustomWindowsMediaPlayer.F_GetAspect: Extended;
begin
// Result := gfnfWMPMediaAspect(Self);
//Width / Height なので幅から高さを出すには gfniRound(Width / F_GetAspect);
// 高さから幅を出すには gfniRound(Height * F_GetAspect);
if (F_GetHasVideo)
then begin
Result := currentMedia.imageSourceWidth / currentMedia.imageSourceHeight;
end else begin
//ビデオなし
Result := 1;
end;
end;
//ビデオの幅
function TMyCustomWindowsMediaPlayer.F_GetWidth: Integer;
begin
if (F_GetAssigned)
and (F_GetHasVideo)
then begin
Result := currentMedia.imageSourceWidth;
end else begin
Result := 0;
end;
end;
//ビデオの高さ
function TMyCustomWindowsMediaPlayer.F_GetHeight: Integer;
begin
if (F_GetAssigned)
and (F_GetHasVideo)
then begin
Result := currentMedia.imageSourceHeight;
end else begin
Result := 0;
end;
end;
//メディアの長さ（秒数）
function TMyCustomWindowsMediaPlayer.F_GetLength: Integer;
begin
if (F_GetAssigned)
then begin
//2008-12-01:TruncからgfniRoundUpへ変更(1秒未満の場合もあるので)
Result := gfniRoundUp(currentMedia.duration);
end else begin
Result := 0;
end;
end;
function TMyCustomWindowsMediaPlayer.F_GetLengthString:
WideString;
//メディアの長さを文字列で返す
//durationStringは0でパディングされるのでそれを避けるため実装
begin
if (F_GetLength > 0)
then begin
Result := gfnsSecToTimeStr(F_GetLength);
end else begin
Result := '';
end;
end;
//メディアの再生位置
function TMyCustomWindowsMediaPlayer.F_GetPosition: Integer;
begin
if (F_GetAssigned)
then begin
Result := Trunc(controls.currentPosition);
end else begin
Result := 0;
end;
end;
procedure TMyCustomWindowsMediaPlayer.F_SetPosition(iPos: Integer);
begin
if (F_GetAssigned)
then begin
controls.currentPosition := iPos;
end;
end;
//メディアのフルパスのファイル名
function TMyCustomWindowsMediaPlayer.F_GetFileName:
WideString;
begin
if (F_GetAssigned)
then begin
Result := currentMedia.sourceURL;
end else begin
Result := '';
end;
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaDrive:
WideString;
//ドライブを返す
begin
Result := gfnsFileDriveGet(F_GetFileName);
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaDir:
WideString;
//末尾に'\'のつかないパス部分を返す
begin
Result := gfnsFileDirGet(F_GetFileName);
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaPath:
WideString;
//パス部分を返す
begin
Result := gfnsFilePathGet(F_GetFileName);
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaName:
WideString;
//ファイル名を返す(拡張子はつく)
begin
Result := gfnsFileNameGet(F_GetFileName);
end;
function TMyCustomWindowsMediaPlayer.F_GetMediaExt:
WideString;
//拡張子部分を返す
begin
Result := gfnsFileExtGet(F_GetFileName);
end;
function TMyCustomWindowsMediaPlayer.F_GetFileSize:
WideString;
//ファイルサイズを単位つきで返す
begin
Result := gfnsFileSizeGet(F_GetFileName);
end;
procedure TMyCustomWindowsMediaPlayer.Minimize;
//最小化したときに画面に映像が残らないようにスクリーン外に移動させる
begin
F_bMinFlag := True;
SetBounds(GetSystemMetrics(SM_XVIRTUALSCREEN) - ClientOrigin.X + Left - Width, GetSystemMetrics(SM_YVIRTUALSCREEN) - ClientOrigin.Y + Top - Height, Width, Height);
end;
