请问如何取的磁盘驱动器标签？

Question

procedure tForm1.SetSysIniInfo;
var
   i,j:integer;
   t:tsystem;
begin
   VoiceChked:=false;
   VolumeType:=0;
   imgVoice.Left:=shpVoice.Left+GetWindowVolume(VolumeType);
   systemPath:=extractfilePath(application.ExeName);  //应用程序路径
   IniFileName:=systemPath+'SystemSets.ini';          //配置文件路径
   Systemini:=TIniFile.Create(inifilename);
   j:=0;
   application.CreateForm(tsystem,t); 
   for i:=65 to 90 do
     if GetDriveType(pchar(chr(i)+':\'))=drive_cdrom then
     begin
        if j=0 then
           mainmenu1.Items[0].Items[1].Items[0].Caption:=chr(i)+':\'+'驱动器标签'
        else
           SetWindowMenu(mainmenu1.Items[0].Items[1],mainmenu1.Items[0].Items[1].Items[0],chr(i)+':\');
        j:=j+1;
     end;
   SetWindowDat;
   SetFileIni;
   SetOpenIniInfo;
end;

Answer 1

    OpenDialog1: TOpenDialog;
    ImageList1: TImageList;
    ImageList2: TImageList;
    MediaPlayer1: TMediaPlayer;
    procedure MainClick(Sender: TObject);
    procedure DVDClick(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure Panel3Resize(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure DVD3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure imgVoiceMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgVoiceMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgVoiceMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N96Click(Sender: TObject);
    procedure N97Click(Sender: TObject);
    procedure N501Click(Sender: TObject);
    procedure N1001Click(Sender: TObject);
    procedure N2001Click(Sender: TObject);
    procedure N431Click(Sender: TObject);
    procedure N541Click(Sender: TObject);
    procedure N1691Click(Sender: TObject);
  private
    procedure SetSysIniInfo;
    { Private declarations }
  public
    { Public declarations }
    procedure openfiles(fName:string);
  end;var
  Form1: TForm1;
  TMovieVolume:TThread;
  MTMovieVolume:TThread;
  TTMovieVolume:TThread; 
  OpenListIndex:integer; 
  FileNameList:array [0..1000] of string; 
  OpensList:array [0..1000] of string; 
  opennames:string; 
  filesPath:string; 
  OpensPath:string; 
  ExtList:string;
  ShowType:integer;
  SizeType:integer;
  ListFilesa:integer;
  ListFilesc:integer;
  MouseChecked:Boolean;
  VoiceChked:Boolean;
  VolumeType:integer;
  systemPath:string; 
  IniFileName:string; 
  Systemini:TIniFile; implementationuses MainD, MainN;{$R *.dfm}procedure tForm1.SetSysIniInfo; 
begin
  MouseChecked:=false;
  VolumeType:=1;
  GetWindowVolume;
  ShowType:=1;
  SizeType:=100;
  systemPath:=extractfilePath(application.ExeName);  //应用程序路径
  IniFileName:=systemPath+'SystemSets.ini';          //配置文件路径 
  Systemini:=TIniFile.Create(inifilename); 
  filesPath:=systemPath+'\list\files.txt'; 
  OpensPath:=systemPath+'\list\opens.txt';
  ExtList:=Systemini.readstring('SystemFile','FindExt',''); 
  SetDriverInfo(mainmenu1.Items[0].Items[1],mainmenu1.Items[0].Items[1].items[0]); 
  SetWindowDat; 
  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;
  end; 
end; procedure TForm1.MainClick(Sender: TObject);
begin
  with sender as tmenuitem do 
  begin
    openfiles(filenamelist[MenuIndex-4]);
  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.ListBox1DblClick(Sender: TObject);
begin
  if (listbox1.Count>0) and (listbox1.ItemIndex>-1) then
    openfiles(FileNameList[listbox1.ItemIndex]);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
   SetSysIniInfo
end;procedure TForm1.N14Click(Sender: TObject);
begin
   close;
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.Panel1Resize(Sender: TObject);
begin
  if opennames <>'' then 
      SetShowRect;
  titles.top:=Panel1.height-15;
  timers.top:=titles.top;
  timers.left:=Panel1.width-100;
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.SpeedButton3Click(Sender: TObject);
begin
    PopupMenu3.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;procedure TForm1.N2Click(Sender: TObject);
var 
  i:Integer;
  s:string;
  f:textfile;
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;
      assignfile(f,filesPath);
      rewrite(f);
      repeat
        s:=OpenDialog1.Files.Strings[i];
        listbox1.AddItem(extractfileName(s),listbox1);
        writeln(f,s);
        i:=i+1;
      until i=OpenDialog1.Files.Count;
      closefile(f);
      openfiles(OpenDialog1.FileName);
   end;
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.imgVoiceMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   VoiceChked:=true;
end;procedure TForm1.imgVoiceMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   VoiceChked:=false;
end;procedure TForm1.imgVoiceMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   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.N96Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[6].Items[ShowType-1].Checked:=false;
   mainmenu1.Items[4].Items[6].Items[0].Checked:=true;
   ShowType:=1;
   if opennames <>'' then
     SetShowRect;
end;procedure TForm1.N97Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[6].Items[ShowType-1].Checked:=false;
   mainmenu1.Items[4].Items[6].Items[1].Checked:=true;
   ShowType:=2;
   if opennames <>'' then
     SetShowRect;
end;procedure TForm1.N501Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[7].Items[0].Checked:=true;
   SizeType:=50;
   if opennames <>'' then
      SetShowRect;
end;procedure TForm1.N1001Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[7].Items[1].Checked:=true;
   SizeType:=100;
   if opennames <>'' then
     SetShowRect;
end;procedure TForm1.N2001Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[7].Items[2].Checked:=true;
   SizeType:=200;
   if opennames <>'' then
     SetShowRect;
end;procedure TForm1.N431Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[6].Items[ShowType-1].Checked:=false;
   mainmenu1.Items[4].Items[6].Items[2].Checked:=true;
   ShowType:=3;
   if opennames <>'' then
     SetShowRect;
end;procedure TForm1.N541Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[6].Items[ShowType-1].Checked:=false;
   mainmenu1.Items[4].Items[6].Items[3].Checked:=true;
   ShowType:=4;
   if opennames <>'' then
     SetShowRect;
end;procedure TForm1.N1691Click(Sender: TObject);
begin
   mainmenu1.Items[4].Items[6].Items[ShowType-1].Checked:=false;
   mainmenu1.Items[4].Items[6].Items[4].Checked:=true;
   ShowType:=5;
   if opennames <>'' then
     SetShowRect;
end;end.

Answer 2

unit Main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, ImgList, ComCtrls, ToolWin, Menus, Buttons, StdCtrls,
  MPlayer, MMSystem, IniFiles, shlobj; type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter1: TSplitter;
    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;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: 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;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label1: TLabel;
    ListBox1: TListBox;
    shpProcess: TShape;
    Titles: TLabel;
    Timers: TLabel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    imgValue: TImage;
    shpVoice: TShape;
    imgVoice: TImage;
    btnVoice: TSpeedButton;
    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;
    N141: TMenuItem;
    N142: TMenuItem;
    N161: TMenuItem;
    N162: TMenuItem;
    N163: TMenuItem;
    N164: TMenuItem;
    N165: TMenuItem;
    N166: TMenuItem;
    N167: TMenuItem;
    N168: TMenuItem;
    N170: TMenuItem;
    N171: TMenuItem;
    N172: TMenuItem;
    N173: TMenuItem;
    N174: TMenuItem;
    N175: TMenuItem;
    N176: TMenuItem;
    N177: TMenuItem;
    N178: TMenuItem;
    N179: TMenuItem;
    N181: TMenuItem;
    N183: TMenuItem;
    N184: TMenuItem;
    N245: TMenuItem;
    N247: TMenuItem;
    N248: TMenuItem;
    N249: TMenuItem;
    N250: TMenuItem;
    N251: TMenuItem;
    N252: TMenuItem;
    N260: TMenuItem;
    N261: TMenuItem;
    N262: TMenuItem;
    N263: TMenuItem;
    N146: 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;

Answer 3

unit MainD;interface 
  uses Classes, ExtCtrls, MPlayer, SysUtils, mmSystem, StdCtrls, Forms, Dialogs; type 
    myThread = class(TThread) 
    private
      procedure SetMovieVolume; 
      procedure SetPositionVolume; 
    protected 
      procedure Execute;override; 
    public 
      constructor Create(); 
end; type 
    myThread2 = class(TThread) 
    private 
      procedure SetMovieVolume1; 
    protected 
      procedure Execute;override; 
    public 
      constructor Create(MediaPlayer:tMediaPlayer;Panel:tPanel;Image:tImage); 
end; type 
    myThread3 = class(TThread) 
    private 
      procedure SetDirFile; 
    protected 
      procedure Execute;override; 
    public 
      constructor Create(ListBox:tListbox;filePath:string); 
end; type 
    myThread5 = class(TThread)
    private 
      procedure SetPHeight;
    protected 
      procedure Execute;override;
    public 
      constructor Create;
end;function SetSumTimes(Volumes:integer):string; var
  aImage:tImage; 
  aMediaPlayer:tMediaPlayer; 
  aPanel:tPanel; 
  aListbox:tListbox; 
  FSums:string; 
  FileList:string; 
  HPosition:integer; implementation uses Main, MainN;constructor myThread5.Create;
begin
  inherited Create(false);
end;procedure myThread5.execute;
var
  i:integer;
begin
  while i<10 do
  begin
     sleep(300);
     Synchronize(SetPHeight);
     i:=i+1;
  end;
end;procedure myThread5.SetPHeight;
begin
   form1.panel3.height:=50;
end;constructor myThread3.Create(ListBox:tListbox;filePath:string);
begin
  inherited Create(false);
  aListbox:=ListBox;
  FileList:='';
  if opennames <>'' then form1.quit.Click;
  aListbox.Items.Clear;
  chdir(filePath);
end;procedure myThread3.execute;
var
  i:integer;
  f1:textfile;
begin
  SetDirFile;
  for i:=alistbox.Count+1 to 1000 do
  begin
      if FileNameList[i]='' then
        break;
      FileNameList[i]:='';
  end;
  assignfile(f1,systemPath+'\list\files.txt');
  rewrite(f1);
  writeln(f1,FileList);
  closefile(f1);
end;procedure myThread3.SetDirFile; 
var 
  sr:TSearchRec; 
  err:integer; 
  s:string; 
begin 
  err:=findfirst('*.*',$37,sr); 
  while (err=0) do 
  begin 
    if (sr.name[1] <>'.') then 
    begin 
      if (sr.attr and fadirectory)=0 then 
      begin 
        s:=extractfileext(sr.Name); 
        if (pos(lowercase(s+';'),ExtList)>0) and (s <>'') then 
        begin 
            s:=AnsiUpperCase(expandfilename(sr.name)); 
            alistbox.Items.Add(extractfileName(s)); 
            FileNameList[alistbox.Count]:=s; 
            if alistbox.Count=1 then 
              FileList:=s 
            else 
              FileList:=FileList+'?'+s; 
        end; 
      end; 
      if (sr.attr and fadirectory)=16 then 
      begin 
        chdir(sr.name); 
        SetDirFile; 
        chdir('..'); 
      end; 
    end; 
    err:=findnext(sr); 
  end; 
end; function SetSumTimes(Volumes:integer):string; 
begin 
  SetSumTimes:=format('%.1d',[Volumes div 3600000])+':'+format('%.2d',[(Volumes mod 3600000) div 60000])+':'+format('%.2d',[((Volumes mod 3600000) mod 60000) div 1000]); 
end; constructor myThread2.Create(MediaPlayer:tMediaPlayer;Panel:tPanel;Image:tImage); 
begin 
  inherited Create(false); 
  aMediaPlayer:=MediaPlayer; 
  aPanel:=Panel; 
  aImage:=Image; 
  aMediaPlayer.Wait:=false; 
  aMediaPlayer.Notify:=true; 
end; procedure myThread2.execute; 
begin 
  synchronize(SetMovieVolume1); 
end; procedure myThread2.SetMovieVolume1; 
var 
  c:string; 
begin 
    try 
    aMediaPlayer.DeviceType:=dtAutoSelect; 
    aMediaPlayer.Close; 
    aMediaPlayer.FileName:=OpenNames; 
    aMediaPlayer.Open; 
    aMediaPlayer.Display:=aPanel;
    ListFilesa:=aMediaPlayer.DisplayRect.Right;
    ListFilesc:=aMediaPlayer.DisplayRect.Bottom;
    form1.Titles.Caption:='播放中                        '+inttostr(ListFilesa)+' x '+inttostr(ListFilesc);
    aMediaPlayer.TimeFormat:=tfMilliseconds;
    SetShowRect;
    aMediaPlayer.Play;
    if OpenListIndex>-1 then 
    begin 
      aMediaPlayer.Position:=OpenListIndex; 
      OpenListIndex:=-1; 
      aMediaPlayer.Play; 
    end; 
    Fsums:=SetSumTimes(aMediaPlayer.Length);
    form1.Timers.Caption:='0:00:00 / '+fsums;
    except 
      c:=extractfileext(opennames); 
      showmessage('播放器不支持'+copy(c,2,length(c)-1)+'格式文件的播放！'); 
    end; 
end; constructor myThread.Create(); 
begin 
  inherited Create(false); 
end; procedure myThread.execute; 
begin 
  if MouseChecked then 
    while MouseChecked do 
    begin 
        synchronize(SetMovieVolume); 
        if terminated then exit; 
    end 
  else 
    while aImage.Left <=form1.shpProcess.Left+form1.shpProcess.Width-11 do 
    begin 
      if MouseChecked then 
          exit; 
      synchronize(SetPositionVolume); 
      if terminated then exit; 
    end; 
end; procedure myThread.SetPositionVolume; 
begin 
  if aMediaPlayer.Position>aMediaPlayer.Length then 
    aImage.Left:=form1.shpProcess.Width+form1.shpProcess.Left-11 
  else 
    if aMediaPlayer.Length>0 then 
        aImage.Left:=(aMediaPlayer.Position*form1.shpprocess.width) div aMediaPlayer.Length+form1.shpProcess.Left-11; 
  form1.Timers.Caption:=SetSumTimes(aMediaPlayer.Position)+' / '+fsums; 
end; procedure myThread.SetMovieVolume; 
var 
  Position:integer; 
begin 
    Position:=(aImage.Left-form1.shpProcess.Left+11)*aMediaPlayer.Length div form1.shpprocess.width; 
    if HPosition=Position then exit; 
    if aMediaPlayer.Mode=mpPlaying then 
    begin 
      aMediaPlayer.Position:=Position; 
      aMediaPlayer.Play 
    end 
    else 
    if form1.ToolButton3.Enabled then 
      aMediaPlayer.Position:=Position; 
    HPosition:=Position; 
end; end.