和风播放器窗体模块1

Question

unit Main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, ImgList, Menus, ComCtrls, ToolWin, ExtCtrls, StdCtrls,
  Buttons, MPlayer, shlobj, ShellApi, DB, ADODB;const
  WM_TrayMessage=WM_User+100;type
  TForm1 = class(TForm)
    Splitter1: TSplitter;
    Panel1: TPanel;
    Titles: TLabel;
    Timers: TLabel;
    MediaPlayer1: TMediaPlayer;
    Panel2: TPanel;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label1: TLabel;
    ListBox1: TListBox;
    Panel3: TPanel;
    shpProcess: TShape;
    imgValue: TImage;
    shpVoice: TShape;
    imgVoice: TImage;
    btnVoice: TSpeedButton;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    DVD1: TMenuItem;
    DVD: TMenuItem;
    DVD3: TMenuItem;
    N3: TMenuItem;
    quit: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    Main: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N4: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N21: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    DVD2: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    N91: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    N431: TMenuItem;
    N541: TMenuItem;
    N1691: TMenuItem;
    N98: TMenuItem;
    N501: TMenuItem;
    N1001: TMenuItem;
    N2001: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    N101: TMenuItem;
    PopupMenu1: TPopupMenu;
    N102: TMenuItem;
    N103: TMenuItem;
    N104: TMenuItem;
    N105: TMenuItem;
    N106: TMenuItem;
    N107: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    N110: TMenuItem;
    N111: TMenuItem;
    N112: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    N115: TMenuItem;
    DVD4: TMenuItem;
    N116: TMenuItem;
    N117: TMenuItem;
    N118: TMenuItem;
    N119: TMenuItem;
    N120: TMenuItem;
    N121: TMenuItem;
    N122: TMenuItem;
    N123: TMenuItem;
    N124: TMenuItem;
    N125: TMenuItem;
    N126: TMenuItem;
    N127: TMenuItem;
    N128: TMenuItem;
    N129: TMenuItem;
    N197: TMenuItem;
    N198: TMenuItem;
    N199: TMenuItem;
    N200: TMenuItem;
    N201: TMenuItem;
    N202: TMenuItem;
    N203: TMenuItem;
    N204: TMenuItem;
    N205: TMenuItem;
    N206: TMenuItem;
    N207: TMenuItem;
    N208: TMenuItem;
    N209: TMenuItem;
    N210: TMenuItem;
    N211: TMenuItem;
    N212: TMenuItem;
    N213: TMenuItem;
    N214: TMenuItem;
    N215: TMenuItem;
    N216: TMenuItem;
    N217: TMenuItem;
    N130: TMenuItem;
    N131: TMenuItem;
    N245: TMenuItem;
    N247: TMenuItem;
    N248: TMenuItem;
    N249: TMenuItem;
    N250: TMenuItem;
    N251: TMenuItem;
    N252: TMenuItem;
    N260: TMenuItem;
    N161: TMenuItem;
    N162: TMenuItem;
    N163: TMenuItem;
    N164: TMenuItem;
    N165: TMenuItem;
    N166: TMenuItem;
    N167: TMenuItem;
    N168: TMenuItem;
    N261: TMenuItem;
    N170: TMenuItem;
    N171: TMenuItem;
    N172: TMenuItem;
    N173: TMenuItem;
    N174: TMenuItem;
    N175: TMenuItem;
    N176: TMenuItem;
    N177: TMenuItem;
    N178: TMenuItem;
    N179: TMenuItem;
    N262: TMenuItem;
    N181: TMenuItem;
    N263: TMenuItem;
    N183: TMenuItem;
    N184: TMenuItem;
    N146: TMenuItem;
    N141: TMenuItem;
    N142: TMenuItem;
    PopupMenu2: TPopupMenu;
    N132: TMenuItem;
    N133: TMenuItem;
    N134: TMenuItem;
    W1: TMenuItem;
    X1: TMenuItem;
    N135: TMenuItem;
    Z1: TMenuItem;
    N136: TMenuItem;
    X2: TMenuItem;
    Y1: TMenuItem;
    Z2: TMenuItem;
    PopupMenu3: TPopupMenu;
    N143: TMenuItem;
    X4: TMenuItem;
    Y2: TMenuItem;
    Z4: TMenuItem;
    OpenDialog1: TOpenDialog;
    ImageList1: TImageList;
    ImageList2: TImageList;
    XPMenu1: TXPMenu;
    PopupMenu4: TPopupMenu;
    N137: TMenuItem;
    N138: TMenuItem;
    N139: TMenuItem;
    N140: TMenuItem;
    N144: TMenuItem;
 

Answer 1

   procedure N2Click(Sender: TObject);
    procedure DVDClick(Sender: TObject);
    procedure DVD3Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N96Click(Sender: TObject);
    procedure N97Click(Sender: TObject);
    procedure N431Click(Sender: TObject);
    procedure N541Click(Sender: TObject);
    procedure N1691Click(Sender: TObject);
    procedure N501Click(Sender: TObject);
    procedure N1001Click(Sender: TObject);
    procedure N2001Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure btnVoiceClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure imgValueMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgValueMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure imgValueMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure imgVoiceMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgVoiceMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure imgVoiceMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure shpVoiceMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure MainClick(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure Panel3Resize(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure shpVoiceMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure shpProcessMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1Click(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure N143Click(Sender: TObject);
    procedure X4Click(Sender: TObject);
    procedure Y2Click(Sender: TObject);
    procedure Z4Click(Sender: TObject);
    procedure N136Click(Sender: TObject);
    procedure X2Click(Sender: TObject);
    procedure Y1Click(Sender: TObject);
    procedure Z2Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure quitClick(Sender: TObject);
    procedure shpProcessMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N89Click(Sender: TObject);
    procedure N90Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N15Click(Sender: TObject);
    procedure N93Click(Sender: TObject);
    procedure N245Click(Sender: TObject);
    procedure N248Click(Sender: TObject);
    procedure N249Click(Sender: TObject);
    procedure N250Click(Sender: TObject);
    procedure N251Click(Sender: TObject);
    procedure N252Click(Sender: TObject);
    procedure N140Click(Sender: TObject);
    procedure N138Click(Sender: TObject);
    procedure N137Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N171Click(Sender: TObject);
    procedure N172Click(Sender: TObject);
    procedure N173Click(Sender: TObject);
  private
    { Private declarations }
    procedure SetSysIniInfo;
    procedure AppMinimized(Sender:TObject);
    procedure WMTrayMessage(var msg:TMessage);message WM_TrayMessage;
  public
    { Public declarations }
    procedure openfiles(fName:string);
  end;var 
  Form1: TForm1;
  TMovieVolume:TThread;
  MTMovieVolume:TThread;
  TTMovieVolume:TThread; 
  OpenListIndex:integer;
  opennames:string;
  ExtList:string;
  ShowType:integer;
  SizeType:integer;
  ListFilesa:integer; 
  ListFilesc:integer;
  MouseChecked:Boolean;
  VoiceChked:Boolean; 
  VolumeType:integer;
  WinSizeType:boolean;
  WindowFull:boolean;
  systemPath:string;
  TMovieMode:integer;
  winPostion:array [0..3] of integer;
  winStatusHeight:integer;
  nid:TNotifyIconData;
  winpost:integer;implementationuses MainN, MainD;
{$R *.dfm}procedure tForm1.SetSysIniInfo;
begin
  WinSizeType:=true;
  MouseChecked:=false;
  VolumeType:=1;
  GetWindowVolume;
  ShowType:=0;
  SizeType:=100;
  MediaPlayer1.Wait:=false;
  MediaPlayer1.Notify:=true;
  TMovieMode:=0;
  winStatusHeight:=15;
  ExtList:=getrst('select FindExt from sys').FieldValues['FindExt'];
  systemPath:=extractfilePath(application.ExeName);
  SetDriverInfo(mainmenu1.Items[0].Items[1],mainmenu1.Items[0].Items[1].items[0]);
  SetOpenIniInfo;
  SetFileIni;
end; procedure tForm1.openfiles(fName:string);
begin
  if FileExists(fname) then
  begin
    OpenNames:=fname;
    MTMovieVolume:=myThread2.Create(MediaPlayer1,Panel1,imgvalue);
    MTMovieVolume.Priority:=tpIdle;
    TMovieVolume:=mythread.Create;
    TMovieVolume.Priority:=tpIdle;
    SetMenuLists(fname);
    imgvalue.Picture.LoadFromFile(systemPath+'\bmp\a1.bmp');
    toolbutton1.Click;
    listbox1.ItemIndex:=FileNameIndex-1;
  end;
end;procedure TForm1.N2Click(Sender: TObject);
var
  i:Integer; 
  s:string;
begin
  OpenDialog1.Title:='打开影音文件';
  OpenDialog1.Options:=[ofAllowMultiSelect,ofPathMustExist];
  OpenDialog1.Filter:='视频文件(*.dat;*.mpg)|*.dat;*.mpg|音频文件(*.mp3;*.wav;*.wma)|*.mp3;*.wav;*.wma|所有文件(*.*)|*.*'; 
  if OpenDialog1.Execute then 
  begin 
      listbox1.Clear;
      syschecked('delete from 0');
      for i:=0 to OpenDialog1.Files.Count-1 do
      begin
        s:=OpenDialog1.Files.Strings[i];
        listbox1.AddItem(extractfileName(s),listbox1);
        syschecked('insert into 0([name]) values("'+s+'")');
      end;
      openfiles(OpenDialog1.FileName);
  end;
end;procedure TForm1.DVDClick(Sender: TObject);
begin
  with sender as tmenuitem do 
  begin
    TTMovieVolume:=myThread3.create(listbox1,Copy(caption,1,3));
    TTMovieVolume.priority:=tpIdle;
  end; 
end;procedure TForm1.DVD3Click(Sender: TObject);
var 
  b:tbrowseinfo; 
  d:array[0..260] of char; 
  i:pitemidlist; 
  s:string; 
begin 
  b.hwndowner:=self.handle; 
  b.pidlroot:=nil; 
  b.pszdisplayname:=nil; 
  b.lpsztitle:='请选择'; 
  b.ulflags:=0; 
  b.lpfn:=nil; 
  b.lparam:=0; 
  b.iimage:=0; 
  i:=shbrowseforfolder(b); 
  if i <>nil then 
  begin 
      shgetpathfromidlist(i,@d); 
      s:=string(d); 
  end; 
  if s <>'' then 
  begin 
    TTMovieVolume:=myThread3.create(listbox1,s); 
    TTMovieVolume.priority:=tpIdle;
  end; 
end;procedure TForm1.N14Click(Sender: TObject);
begin
   close;
end;procedure TForm1.N31Click(Sender: TObject);
begin
  if imgVoice.Left+1<=shpVoice.Left+shpVoice.Width-6 then
  begin
    imgVoice.Left:=imgVoice.Left+1;
    setWindowVolume
  end;
end;procedure TForm1.N32Click(Sender: TObject);
begin
  if imgVoice.Left-1>=shpVoice.Left-6 then
  begin
    imgVoice.Left:=imgVoice.Left-1;
    setWindowVolume
  end;
end;procedure TForm1.N33Click(Sender: TObject);
begin
   btnVoice.Click;
end;procedure TForm1.N35Click(Sender: TObject);
begin
  VolumeType:=1;
  GetWindowVolume; 
end;procedure TForm1.N36Click(Sender: TObject);
begin
  VolumeType:=2;
  GetWindowVolume;
end;procedure TForm1.N37Click(Sender: TObject);
begin
  VolumeType:=3;
  GetWindowVolume; 
end;procedure TForm1.N96Click(Sender: TObject);
begin
  SetSizeType(mainmenu1.Items[4].Items[6],PopupMenu1.Items[10],0);
end;procedure TForm1.N97Click(Sender: TObject);
begin
  SetSizeType(mainmenu1.Items[4].Items[6],PopupMenu1.Items[10],1);
end;procedure TForm1.N431Click(Sender: TObject);
begin
  SetSizeType(mainmenu1.Items[4].Items[6],PopupMenu1.Items[10],2);
end;procedure TForm1.N541Click(Sender: TObject);
begin
  SetSizeType(mainmenu1.Items[4].Items[6],PopupMenu1.Items[10],3);
end;procedure TForm1.N1691Click(Sender: TObject);
begin
  SetSizeType(mainmenu1.Items[4].Items[6],PopupMenu1.Items[10],4);
end;procedure TForm1.N501Click(Sender: TObject);
begin
  mainmenu1.Items[4].Items[7].Items[0].Checked:=true; 
  SizeType:=50;
  WinSizeType:=true;
  if opennames <>'' then
      SetShowRect;
end;procedure TForm1.N1001Click(Sender: TObject);
begin
  mainmenu1.Items[4].Items[7].Items[1].Checked:=true; 
  SizeType:=100;
  WinSizeType:=true;
  if opennames <>'' then
    SetShowRect;
end;procedure TForm1.N2001Click(Sender: TObject);
begin
  mainmenu1.Items[4].Items[7].Items[2].Checked:=true;
  SizeType:=200;
  WinSizeType:=true;
  if opennames <>'' then
    SetShowRect;
end;

Answer 2

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  rs:TadoDataSet;
  i:Integer;
  s:string;
begin
  OpenDialog1.Title:='添加影音文件'; 
  OpenDialog1.Options:=[ofAllowMultiSelect,ofPathMustExist]; 
  OpenDialog1.Filter:='视频文件(*.dat;*.mpg)|*.dat;*.mpg|音频文件(*.mp3;*.wav;*.wma)|*.mp3;*.wav;*.wma|所有文件(*.*)|*.*'; 
  if OpenDialog1.Execute then 
  begin
      for i:=1 to OpenDialog1.Files.Count do
      begin
        s:=OpenDialog1.Files.Strings[i-1];
        rs:=getrst('select 1 from 0 where name="'+s+'"');
        if rs.RecordCount=0 then
        begin
           listbox1.AddItem(extractfileName(s),listbox1);
           syschecked('insert into 0([name]) values("'+s+'")');
        end;
      end;
  end;
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  s:string;
begin
   if (listbox1.Count>0) and (listbox1.ItemIndex>-1) then
   begin
      s:=FileNameList(listbox1.ItemIndex+1);
      if opennames=s then
      begin
         TMovieVolume.Terminate;
         quit.Click;
         imgvalue.Left:=shpProcess.Left-11;
         opennames:='';
      end;
      listbox1.Items.Delete(listbox1.ItemIndex);
      syschecked('delete from 0 where name="'+s+'"');
   end;
end;procedure TForm1.WMTrayMessage(var msg:TMessage);
var
  p:TPoint;
begin
  if msg.LParam=WM_LButtonDown then
    begin
      ShowWindow(Application.Handle,SW_Show);
      Application.Restore;
    end
  else if msg.LParam=WM_RButtonDown then
    begin
      GetCursorPos(p);   //获取光标位置
      popupmenu4.Popup(p.x,p.y);     //显示弹出菜单
    end;
end;procedure TForm1.AppMinimized(Sender:TObject);
begin
  nid.cbSize:=SizeOf(TNotifyIconData);
  nid.hIcon:=Application.Icon.Handle;
  nid.szTip:='和风播放器';
  nid.uCallbackMessage:=WM_TrayMessage;
  nid.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
  nid.uID:=0;
  nid.Wnd:=Handle;
  Shell_NotifyIcon(NIM_ADD,@nid);
  ShowWindow(Application.Handle,SW_Hide);
end;procedure TForm1.btnVoiceClick(Sender: TObject);
begin
   if VolumeType=0 then
      VolumeType:=1
   else
      VolumeType:=0;
   setWindowVolume;
   if VolumeType=0 then
      btnVoice.Glyph.LoadFromFile(systemPath+'\bmp\a6.bmp')
   else
      btnVoice.Glyph.LoadFromFile(systemPath+'\bmp\a5.bmp');
   mainmenu1.Items[1].Items[7].Items[2].Checked:=not mainmenu1.Items[1].Items[7].Items[2].Checked;
end;procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   if (opennames='') and (listbox1.ItemIndex>-1) then
      openfiles(FileNameList(listbox1.ItemIndex+1));
   if opennames='' then exit;
   toolbutton1.Enabled:=true;
   toolbutton2.Enabled:=true;
   toolbutton3.Enabled:=true;
   if listbox1.Count>1 then
   begin
     toolbutton5.Enabled:=true;
     toolbutton8.Enabled:=true;
   end
   else
   begin
     toolbutton5.Enabled:=false;
     toolbutton8.Enabled:=false;
   end;
   toolbutton6.Enabled:=true;
   toolbutton7.Enabled:=true;
   mediaplayer1.Notify:=false;
   if opennames<>'' then
     if (mediaplayer1.mode=mpStopped) or (mediaplayer1.mode=mpPaused) then
       mediaplayer1.Play;
   mediaplayer1.Notify:=true;
   quit.Enabled:=true;
end;procedure TForm1.ToolButton2Click(Sender: TObject);
begin
   toolbutton2.Enabled:=false;
   toolbutton6.Enabled:=false;
   toolbutton7.Enabled:=false;
   mediaplayer1.Notify:=false;
   mediaplayer1.Pause;
   mediaplayer1.Notify:=true;
end;procedure TForm1.ToolButton3Click(Sender: TObject);
begin
   toolbutton2.Enabled:=false;
   toolbutton3.Enabled:=false;
   toolbutton6.Enabled:=false;
   toolbutton7.Enabled:=false;
   mediaplayer1.Notify:=false;
   mediaplayer1.Stop;
   mediaplayer1.Notify:=true;
   mediaplayer1.Position:=0;
end;procedure TForm1.imgValueMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   MouseChecked:=true;
   if assigned(TMovieVolume) then
      TMovieVolume.Terminate;
   MTMovieVolume:=mythread.Create;
   MTMovieVolume.Priority:=tpIdle;
end;procedure TForm1.imgValueMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if opennames<>'' then
   imgvalue.Picture.LoadFromFile(systemPath+'\bmp\a2.bmp');
   if MouseChecked then
      if (imgvalue.Left+x>=shpProcess.Left) and (imgvalue.Left+x<=shpProcess.Left+shpProcess.Width) then
      begin
        imgvalue.Left:=imgvalue.Left+x-11;
      end;
end;procedure TForm1.imgValueMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   MouseChecked:=false;
   if assigned(MTMovieVolume) then
      MTMovieVolume.Terminate;
   TMovieVolume:=mythread.Create;
   TMovieVolume.Priority:=tpIdle;
end;procedure TForm1.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if opennames<>'' then
   imgvalue.Picture.LoadFromFile(systemPath+'\bmp\a1.bmp');
   imgVoice.Picture.LoadFromFile(systemPath+'\bmp\a3.bmp');
end;procedure TForm1.imgVoiceMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   VoiceChked:=true;
end;procedure TForm1.imgVoiceMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  imgVoice.Picture.LoadFromFile(systemPath+'\bmp\a4.bmp');
  if VoiceChked then
  begin
      if (imgVoice.Left+x>=shpVoice.Left) and (imgVoice.Left+x <=shpVoice.Left+shpVoice.Width) then
      begin
        imgVoice.Left:=imgVoice.Left+x-6;
        setWindowVolume
      end;
  end; 
end;procedure TForm1.imgVoiceMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   VoiceChked:=false; 
end;procedure TForm1.shpVoiceMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   imgVoice.Picture.LoadFromFile(systemPath+'\bmp\a3.bmp');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=AppMinimized;
  AppMinimized(nil);
  SetSysIniInfo1;
  SetSysIniInfo;
end;procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  if (listbox1.Count>0) and (listbox1.ItemIndex>-1) then
    openfiles(FileNameList(listbox1.ItemIndex+1));
end;procedure TForm1.MainClick(Sender: TObject);
var
  s:string;
begin
  with sender as tmenuitem do
  begin
    s:=OpenLists(MenuIndex-3);
    openfiles(s);
    listbox1.Items.Clear;
    syschecked('delete from 0');
    listbox1.AddItem(extractfileName(s),listbox1);
    syschecked('insert into 0([name]) values("'+s+'")');
  end; 
end;procedure TForm1.Panel1Resize(Sender: TObject);
begin
  if opennames<>'' then
  begin
     WinSizeType:=false;
     SetShowRect;
  end;
  titles.top:=Panel1.height-15; 
  timers.top:=titles.top;
  timers.left:=Panel1.width-110; 
end;procedure TForm1.Panel3Resize(Sender: TObject);
begin
  shpProcess.width:=panel3.width-30; 
  shpVoice.left:=panel3.width-shpvoice.width-15; 
  btnVoice.left:=panel3.width-120; 
  GetWindowVolume
end;procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   PopupMenu3.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   if MediaPlayer1.Mode=mpStopped then
   begin   end
   else if MediaPlayer1.Mode=mpPlaying then
   begin
      if MediaPlayer1.Position>=if MediaPlayer1.Length then   end;
   MediaPlayer1.Notify:=true;
end;procedure TForm1.shpVoiceMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  imgVoice.Left:=shpVoice.Left+x-6;
  setWindowVolume
end;procedure TForm1.shpProcessMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   if opennames<>'' then
      imgvalue.Picture.LoadFromFile(systemPath+'\bmp\a1.bmp');
end;