请问如何提取Real.Alternative解码器的文件？

Question

我安装了Real.Alternative解码器，用mediaplayer控件可以播放rm电影，再把Real Alternative目录下的文件夹Codecs，Common，Plugins拷到C:\real，再将RealMediaSplitter.ax文件拷到C:\real,再将Real.Alternative解码器从系统中删除，注册RealMediaSplitter.ax文件，用mediaplayer控件可以播放rm电影但没有声音了，不知该怎么办？

Answer 1

你确定所有的文件都包含在Real Alternative目录下了？

Answer 2

新增主键HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\CLSID
键值： 字符串: "{238D0F23-5DC9-45A6-9BE2-666160C324DD}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\FilterData
键值： 类型: REG_BINARY 长度: 144 (0x90) 字节 s
    000000: 02 00 00 00 00 00 40 00 02 00 00 00 00 00 00 00  |  ......@.........    000010: 30 70 69 33 00 00 00 00 00 00 00 00 01 00 00 00  |  0pi3............    000020: 00 00 00 00 00 00 00 00 30 74 79 33 00 00 00 00  |  ........0ty3....    000030: 60 00 00 00 70 00 00 00 31 70 69 33 08 00 00 00  |  `...p...1pi3....    ...更多...HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\FriendlyName
键值： 字符串: "RealVideo Decoder"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{765035B3-5944-4A94-806B-20EE3415F26F}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{765035B3-5944-4A94-806B-20EE3415F26F}\CLSID
键值： 字符串: "{765035B3-5944-4A94-806B-20EE3415F26F}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{765035B3-5944-4A94-806B-20EE3415F26F}\FilterData
键值： 类型: REG_BINARY 长度: 16 (0x10) 字节 s
    02 00 00 00 00 00 40 00 00 00 00 00 00 00 00 00  |  [email protected]_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{765035B3-5944-4A94-806B-20EE3415F26F}\FriendlyName
键值： 字符串: "RealMedia Source"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{941A4793-A705-4312-8DFC-C11CA05F397E}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{941A4793-A705-4312-8DFC-C11CA05F397E}\CLSID
键值： 字符串: "{941A4793-A705-4312-8DFC-C11CA05F397E}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{941A4793-A705-4312-8DFC-C11CA05F397E}\FilterData
键值： 类型: REG_BINARY 长度: 304 (0x130) 字节 s
    000000: 02 00 00 00 00 00 40 00 02 00 00 00 00 00 00 00  |  ......@.........    000010: 30 70 69 33 00 00 00 00 00 00 00 00 01 00 00 00  |  0pi3............    000020: 00 00 00 00 00 00 00 00 30 74 79 33 00 00 00 00  |  ........0ty3....    000030: B0 00 00 00 C0 00 00 00 31 70 69 33 08 00 00 00  |  ?..?..1pi3....    ...更多...HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{941A4793-A705-4312-8DFC-C11CA05F397E}\FriendlyName
键值： 字符串: "RealAudio Decoder"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\CLSID
键值： 字符串: "{E21BE468-5C18-43EB-B0CC-DB93A847D769}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\FilterData
键值： 类型: REG_BINARY 长度: 88 (0x58) 字节 s
    000000: 02 00 00 00 00 00 40 00 01 00 00 00 00 00 00 00  |  ......@.........    000010: 30 70 69 33 00 00 00 00 00 00 00 00 01 00 00 00  |  0pi3............    000020: 00 00 00 00 00 00 00 00 30 74 79 33 00 00 00 00  |  ........0ty3....    000030: 38 00 00 00 48 00 00 00 83 EB 36 E4 4F 52 CE 11  |  8...H...冸6銸R?    ...更多...HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\FriendlyName
键值： 字符串: "RealMedia Splitter"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\@
键值： 字符串: "RealVideo Decoder"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\InprocServer32\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\InprocServer32\@
键值： 字符串: "C:\WINDOWS\system32\RealMediaSplitter.ax"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{238D0F23-5DC9-45A6-9BE2-666160C324DD}\InprocServer32\ThreadingModel
键值： 字符串: "Both"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{765035B3-5944-4A94-806B-20EE3415F26F}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{765035B3-5944-4A94-806B-20EE3415F26F}\@
键值： 字符串: "RealMedia Source"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{765035B3-5944-4A94-806B-20EE3415F26F}\InprocServer32\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{765035B3-5944-4A94-806B-20EE3415F26F}\InprocServer32\@
键值： 字符串: "C:\WINDOWS\system32\RealMediaSplitter.ax"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{765035B3-5944-4A94-806B-20EE3415F26F}\InprocServer32\ThreadingModel
键值： 字符串: "Both"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{941A4793-A705-4312-8DFC-C11CA05F397E}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{941A4793-A705-4312-8DFC-C11CA05F397E}\@
键值： 字符串: "RealAudio Decoder"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{941A4793-A705-4312-8DFC-C11CA05F397E}\InprocServer32\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{941A4793-A705-4312-8DFC-C11CA05F397E}\InprocServer32\@
键值： 字符串: "C:\WINDOWS\system32\RealMediaSplitter.ax"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{941A4793-A705-4312-8DFC-C11CA05F397E}\InprocServer32\ThreadingModel
键值： 字符串: "Both"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\@
键值： 字符串: "RealMedia Splitter"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\InprocServer32\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\InprocServer32\@
键值： 字符串: "C:\WINDOWS\system32\RealMediaSplitter.ax"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{E21BE468-5C18-43EB-B0CC-DB93A847D769}\InprocServer32\ThreadingModel
键值： 字符串: "Both"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.ra\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.ra\Source Filter
键值： 字符串: "{765035B3-5944-4A94-806B-20EE3415F26F}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.ram\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.ram\Source Filter
键值： 字符串: "{765035B3-5944-4A94-806B-20EE3415F26F}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.rm\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.rm\Source Filter
键值： 字符串: "{765035B3-5944-4A94-806B-20EE3415F26F}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.rmvb\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\Extensions\.rmvb\Source Filter
键值： 字符串: "{765035B3-5944-4A94-806B-20EE3415F26F}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\{e436eb83-524f-11ce-9f53-0020af0ba770}\{57428EC6-C2B2-44A2-AA9C-28F0B6A5C48E}\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\{e436eb83-524f-11ce-9f53-0020af0ba770}\{57428EC6-C2B2-44A2-AA9C-28F0B6A5C48E}\0
键值： 字符串: "0,4,,2E524D46"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Media Type\{e436eb83-524f-11ce-9f53-0020af0ba770}\{57428EC6-C2B2-44A2-AA9C-28F0B6A5C48E}\Source Filter
键值： 字符串: "{E436EBB5-524F-11CE-9F53-0020AF0BA770}"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\DT_Codecs\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\DT_Codecs\@
键值： 字符串: "C:\Program Files\Common files\Real\Codecs\"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\DT_Common\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\DT_Common\@
键值： 字符串: "C:\Program Files\Common files\Real\Common\"
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\DT_Plugins\
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Software\RealNetworks\Preferences\DT_Plugins\@
键值： 字符串: "C:\Program Files\Common files\Real\Plugins\"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDlls\C:\WINDOWS\unvise32.exe
键值： DWORD: 1 (0x1)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\㊣阿飛㊣的RealONE解码器\
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\㊣阿飛㊣的RealONE解码器\DisplayName
键值： 字符串: "㊣阿飛㊣的RealONE解码器"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\㊣阿飛㊣的RealONE解码器\UninstallString
键值： 字符串: "C:\WINDOWS\unvise32.exe C:\Program Files\Common Files\uninstal.log"
--------------
总计数量: 59

Answer 3

New keysHKEY_CURRENT_USER\Software\GNU\
HKEY_CURRENT_USER\Software\GNU\Xvid\
HKEY_CURRENT_USER\Software\GNU\Xvid\Supported_4CC
Value: DWORD: 7 (0x7)
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count\HRZR_EHACNGU:P:\GQQBJAYBNQ\KivQ-1.1.3.rkr
Value: Type: REG_BINARY Length: 16 (0x10) bytes    03 00 00 00 06 00 00 00 D0 D9 CF 2A D1 36 CA 01  |  ........匈???HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count\HRZR_EHACVQY:%pfvqy2%\Kivq
Value: Type: REG_BINARY Length: 16 (0x10) bytes    03 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00  |  ................HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count\HRZR_EHACVQY:%pfvqy2%\Kivq\Avp'f ZvavPnyp.yax
Value: Type: REG_BINARY Length: 16 (0x10) bytes    03 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00  |  ................HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count\HRZR_EHACVQY:%pfvqy2%\Kivq\Xbrcv'f BTZPnyp.yax
Value: Type: REG_BINARY Length: 16 (0x10) bytes    03 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00  |  ................HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\C:\DOCUME~1\ADMINI~1.MY-\LOCALS~1\Temp\is-0QNDL.tmp\is-D8JML.tmp
Value: String: "Setup/Uninstall"
HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\C:\TDDOWNLOAD\XviD-1.1.3.exe
Value: String: "Xvid 1.1.3 final-installer "
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc\xvidvfw.dll
Value: String: "Xvid MPEG-4 Video Codec"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Drivers32\vidc.XVID
Value: String: "xvidvfw.dll"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\DisplayIcon
Value: String: "C:\Program Files\Xvid\xvid.ico"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\DisplayName
Value: String: "Xvid 1.1.3 final uninstall"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\DisplayVersion
Value: String: "1.1"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\HelpLink
Value: String: "http://forum.doom9.org/forumdisplay.php?f=52"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Inno Setup: App Path
Value: String: "C:\Program Files\Xvid"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Inno Setup: Deselected Tasks
Value: String: ""
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Inno Setup: Icon Group
Value: String: "Xvid"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Inno Setup: Selected Tasks
Value: String: "DecodeAll"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Inno Setup: Setup Version
Value: String: "5.1.6"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Inno Setup: User
Value: String: "Administrator"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\InstallLocation
Value: String: "C:\Program Files\Xvid\"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\NoModify
Value: DWORD: 1 (0x1)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\NoRepair
Value: DWORD: 1 (0x1)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\Publisher
Value: String: "Xvid team (Koepi)"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\QuietUninstallString
Value: String: ""C:\Program Files\Xvid\unins000.exe" /SILENT"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\UninstallString
Value: String: ""C:\Program Files\Xvid\unins000.exe""
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\URLInfoAbout
Value: String: "http://www.xvid.org/"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Xvid_is1\URLUpdateInfo
Value: String: "http://www.koepi.org/"
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\MediaResources\icm\
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\MediaResources\icm\vidc.XVID\
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\MediaResources\icm\vidc.XVID\Description
Value: String: "Xvid MPEG-4 Video Codec"
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\MediaResources\icm\vidc.XVID\Driver
Value: String: "xvidvfw.dll"
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\MediaResources\icm\vidc.XVID\FriendlyName
Value: String: "Xvid"
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\icm\
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\icm\vidc.XVID\
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\icm\vidc.XVID\Description
Value: String: "Xvid MPEG-4 Video Codec"
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\icm\vidc.XVID\Driver
Value: String: "xvidvfw.dll"
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\icm\vidc.XVID\FriendlyName
Value: String: "Xvid"
--------------
Total positions: 40

Answer 4

unit MainN;interface 
  uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, ImgList, ComCtrls, ToolWin, Menus, Buttons, StdCtrls, 
  MPlayer, MMSystem, IniFiles, Registry; 
procedure SetWindowDat; 
procedure SetOpenIniInfo; 
procedure SetFileIni; 
procedure SetDriverInfo(mMenu:TMenuItem;mMenu1:TMenuItem); 
function SetDrivers(lstr:string):string; 
function SetWindowMenus(lstr:string):string; 
procedure SetWindowMenu(mMenu:TMenuItem;mMenu1:TMenuItem;lstr:string); 
procedure GetWindowVolume; 
procedure SetWindowVolume;
procedure SetShowRect;var
   TDMovieVolume:tthread;implementationuses Main, MainD;procedure SetShowRect;
var
  ltop:integer;
  lleft:integer;
  lwidth:integer;
  lHeight:integer;
begin
  lwidth:=ListFilesa*SizeType div 100;
  lHeight:=ListFilesc*SizeType div 100;
  with form1 do
  begin
     if ShowType=1 then
     begin
        if Panel1.Width<lwidth then
           width:=width+lwidth-Panel1.Width;
        if Panel1.Height<lHeight+15 then
           height:=height+lHeight+15-Panel1.Height;
        lleft:=(Panel1.Width-lwidth) div 2;
        ltop:=(Panel1.Height-lHeight-15) div 2;
        aMediaPlayer.DisplayRect:=rect(lleft,ltop,lwidth,lHeight);
     end
     else if ShowType=2 then
        aMediaPlayer.DisplayRect:=rect(0,0,panel1.Width,panel1.Height);
     panel3.Align:=alBottom;
  end;
end;procedure SetWindowVolume;
var 
  v,t:longint;
begin
  with form1 do
  begin
    t:=(imgvoice.left-shpvoice.left+6)*255 div shpvoice.Width;
  end;
  waveoutgetvolume(0,@v);
  if VolumeType=1 then
    v:=(t shl 8)or(t shl 24)
  else 
  if VolumeType=2 then
    v:=v and $ffff0000 or (t shl 8)
  else 
    v:=v and $0000ffff or (t shl 24);
  waveOutSetVolume(0,v);
end; procedure GetWindowVolume;
var 
  v:longint;
begin 
  waveOutGetVolume(0,@v);
  if VolumeType=1 then
  begin
    if hi(v)>hi(v shr 16) then
      v:=hi(v)
    else
      v:=hi(v shr 16);
  end
  else if VolumeType=2 then
    v:=hi(v)
  else
    v:=hi(v shr 16);
  with form1 do
  begin
    mainmenu1.Items[1].Items[8].Items[VolumeType].Checked:=true;
    imgvoice.left:=shpvoice.left+(shpvoice.width*v) div 255-6;
  end;
end; function SetWindowMenus(lstr:string):string;
var 
  f:string; 
begin 
  f:=extractfileName(lstr);
  with form1.Canvas do 
  begin 
  if textwidth(lstr)>300 then 
      if textwidth(Copy(lstr,1,3)+'...\'+f)>300 then
        lstr:=copy(lstr,length(f)-((300-textwidth('...\'+f)) div 6)+1,
          (300-textwidth('...\'+f)) div 6) 
      else 
        lstr:=Copy(lstr,1,(300-textwidth('...\'+f)) div 6)+'...\'+f;
  SetWindowMenus:=lstr;
  end;
end; function SetDrivers(lstr:string):string; 
var 
  VolN:array[0..255] of Char; 
  n,l,f:Longword; 
  s:array[0..255] of Char; 
begin 
  GetVolumeInformation(PChar(lstr),VolN,255,@n,l,f,s,255); 
  SetDrivers:=VolN; 
end; procedure SetDriverInfo(mMenu:TMenuItem;mMenu1:TMenuItem); 
var 
  i,j:Integer; 
  s:string; 
begin 
  j:=0; 
  for i:=65 to 90 do 
  begin 
    s:=chr(i)+':\'; 
    if GetDriveType(pchar(s))=drive_cdrom then 
    begin 
        if j=0 then 
          mMenu1.Caption:=s+SetDrivers(s) 
        else 
          SetWindowMenu(mMenu,mMenu1,s+SetDrivers(s)); 
        j:=j+1; 
    end; 
  end; 
end; procedure SetWindowMenu(mMenu:TMenuItem;mMenu1:TMenuItem;lstr:string); 
var 
  mItem:TMenuItem; 
begin 
  mItem:=TMenuItem.create(mMenu1); 
  if mMenu.caption='历史记录' then 
  begin 
    mItem.caption:=SetWindowMenus(lstr); 
    mItem.onclick:=form1.MainClick;
    if mMenu1.Caption='-' then 
      mMenu.insert(4,mitem) 
    else 
      mMenu.insert(mMenu.Count,mitem); 
  end 
  else 
  begin 
    mItem.caption:=lstr; 
    mItem.onclick:=form1.DVDClick; 
    mMenu.insert(mMenu1.count,mitem); 
  end; 
end; procedure SetWindowDat; 
var 
  Reg: TRegistry; 
begin 
  IF Systemini.readstring('systeminfo','DatRegist','')='1' then exit;
    Reg:=TRegistry.Create; 
    try 
      Reg.RootKey:=HKEY_LOCAL_MACHINE;; 
      if Reg.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\MCI Extensions', True) then 
        Reg.WriteString('Dat','MPEGVideo'); 
    finally 
      Reg.free; 
    end; 
  Systemini.WriteString('systeminfo','DatRegist','1') 
end;procedure SetOpenIniInfo; 
var 
  i:Integer; 
  s:string; 
  f:textfile; 
begin 
  Form1.MainMenu1.Items[0].Items[6].Items[3].caption:=''; 
  assignfile(f,OpensPath); 
  reset(f);
  if not Eof(f) then
    Form1.MainMenu1.Items[0].Items[6].Items[3].Visible:=true; 
  i:=0;
  while not eof(f) do
  begin
    readln(f,s);
    SetWindowMenu(Form1.MainMenu1.Items[0].Items[6],Form1.MainMenu1.Items[0].Items[6].Items[3],s);
    OpensList[i]:=s;
    i:=i+1;
  end;
  closefile(f); 
  Form1.MainMenu1.Items[0].Items[6].Items[3].caption:='-'; 
end; procedure SetFileIni; 
var 
  i:Integer;
  s,f1:string;
  f:textfile;
begin
   assignfile(f,filesPath);
   reset(f);
   i:=0;
   OpenListIndex:=strtoint(Systemini.readstring('systeminfo','startp',''));
   if OpenListIndex>-1 then
       f1:=Systemini.readstring('systeminfo','endfile','');
   while not eof(f) do
   begin
     readln(f,s);
     form1.listbox1.AddItem(extractfileName(s),form1.listbox1);
     FileNameList[i]:=s;
     if f1=s then form1.openfiles(f1);
     i:=i+1;
   end;
   closefile(f);
end; 
end.