home *** CD-ROM | disk | FTP | other *** search
/ Seductive Schoolgirls for Windows 95 / Seductive_Schoolgirls_for_Windows_95_-_Adult_Disc_-_Powersource_March_1996.iso / autorun / vv1.~pa < prev    next >
Text File  |  1996-03-01  |  3KB  |  139 lines
  1. unit Vv1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, FileCtrl, StdCtrls, Buttons, ExtCtrls, MPlayer,prdi,
  8.   MyRotate;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Image1: TImage;
  13.     DirectoryListBox1: TDirectoryListBox;
  14.     BitBtn1: TBitBtn;
  15.     Label2: TLabel;
  16.     FileListBox1: TFileListBox;
  17.     Label3: TLabel;
  18.     BitBtn2: TBitBtn;
  19.     Timer1: TTimer;
  20.     MediaPlayer1: TMediaPlayer;
  21.     BitBtn3: TBitBtn;
  22.     Bevel1: TBevel;
  23.     MyLabelRotate1: TMyLabelRotate;
  24.     procedure DirectoryListBox1Change(Sender: TObject);
  25.     procedure BitBtn1Click(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure SpeedButton1Click(Sender: TObject);
  28.     procedure BitBtn2Click(Sender: TObject);
  29.     procedure Timer1Timer(Sender: TObject);
  30.     procedure BitBtn3Click(Sender: TObject);
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.     procedure FileListBox1Click(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.   st,go:Boolean;
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TForm1.DirectoryListBox1Change(Sender: TObject);
  47. begin
  48.      FileListBox1.Directory:=DirectoryListBox1.Directory;
  49. end;
  50.  
  51. procedure TForm1.BitBtn1Click(Sender: TObject);
  52. begin
  53. Close;
  54. end;
  55.  
  56. procedure TForm1.FormCreate(Sender: TObject);
  57. begin
  58.      with mediaplayer1 do
  59.      begin
  60.      filename:='\autorun\v3.wav';
  61.      open;
  62.      end;
  63.      st:=True;
  64.      go:=true;
  65.      directorylistbox1.directory:='\midi';
  66. end;
  67.  
  68. procedure TForm1.SpeedButton1Click(Sender: TObject);
  69. var cmd:array[0..255] of char;
  70. begin
  71.      StrPcopy(cmd,'\autorun\vpic '+directoryListBox1.Directory);
  72.      winexec(Cmd,SW_showMaximized);
  73. end;
  74.  
  75. procedure TForm1.BitBtn2Click(Sender: TObject);
  76. begin
  77.      if bitbtn2.caption='Music On' then
  78.      begin
  79.         mediaplayer1.stop;
  80.         st:=False;
  81.         bitbtn2.caption:='Music Off';
  82.      End
  83.      else
  84.      begin
  85.         mediaplayer1.play;
  86.         st:=True;
  87.         bitbtn2.caption:='Music On';
  88.      End;
  89. end;
  90.  
  91. procedure TForm1.Timer1Timer(Sender: TObject);
  92. begin
  93.     if go then
  94.      if st then mediaplayer1.play
  95.      else mediaplayer1.stop;
  96. end;
  97.  
  98. procedure TForm1.BitBtn3Click(Sender: TObject);
  99. var
  100.    f:Textfile;
  101.    i:integer;
  102. begin
  103.      assignfile(f,'c:\temp.ben');
  104.      rewrite(f);
  105.      tag:=1;
  106.      for i:=0 to filelistbox1.items.count-1 do
  107.      begin
  108.      Writeln(f,filelistbox1.items[i]);
  109.      end;
  110.      closefile(f);
  111.      priDial.show;
  112.  
  113. end;
  114.  
  115. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  116. begin
  117.      if tag=1 then
  118.      Deletefile('c:\temp.ben');
  119. end;
  120.  
  121. procedure TForm1.FileListBox1Click(Sender: TObject);
  122. var
  123.    p,i:integer;
  124. begin
  125.      with mediaplayer1 do
  126.      Begin
  127.           for i:=0 to FileListBox1.items.count-1 do
  128.              if filelistbox1.selected[i] then p:=i;
  129.           chdir(directorylistbox1.directory);
  130.           filename:=filelistbox1.items[p];
  131.           open;
  132.           st:=true;
  133.           go:=False;
  134.           play;
  135.      End;
  136. end;
  137.  
  138. end.
  139.