home *** CD-ROM | disk | FTP | other *** search
/ Quake++ for Quake / Quake++.iso / quake / unit1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-23  |  6.0 KB  |  276 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Printers, FileCtrl,unit2,
  8.   unit3,unit4,unit5,unit6;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Image1: TImage;
  13.     BitBtn1: TBitBtn;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     Button3: TButton;
  20.     Label4: TLabel;
  21.     g: TLabel;
  22.     Timer1: TTimer;
  23.     Memo1: TMemo;
  24.     Button4: TButton;
  25.     Bevel1: TBevel;
  26.     Panel1: TPanel;
  27.     Button7: TButton;
  28.     Button10: TButton;
  29.     b6: TButton;
  30.     C: TButton;
  31.     Button5: TButton;
  32.     DriveComboBox1: TDriveComboBox;
  33.     DirectoryListBox1: TDirectoryListBox;
  34.     FileListBox1: TFileListBox;
  35.     Panel2: TPanel;
  36.     Memo2: TMemo;
  37.     Button6: TButton;
  38.     Button8: TButton;
  39.     Button9: TButton;
  40.     Button11: TButton;
  41.     OpenDialog1: TOpenDialog;
  42.     procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  43.       Y: Integer);
  44.     procedure Timer1Timer(Sender: TObject);
  45.     procedure Button1Click(Sender: TObject);
  46.     procedure Button2Click(Sender: TObject);
  47.     procedure Button3Click(Sender: TObject);
  48.     procedure Button4Click(Sender: TObject);
  49.     procedure DirectoryListBox1Change(Sender: TObject);
  50.     procedure DriveComboBox1Change(Sender: TObject);
  51.     procedure FileListBox1DblClick(Sender: TObject);
  52.     procedure Button5Click(Sender: TObject);
  53.     procedure CClick(Sender: TObject);
  54.     procedure b6Click(Sender: TObject);
  55.     procedure Button7Click(Sender: TObject);
  56.     procedure Button10Click(Sender: TObject);
  57.     procedure Button8Click(Sender: TObject);
  58.     procedure Button6Click(Sender: TObject);
  59.     procedure Button9Click(Sender: TObject);
  60.     procedure Button11Click(Sender: TObject);
  61.     procedure FormShow(Sender: TObject);
  62.   private
  63.     { Private declarations }
  64.   public
  65.     { Public declarations }
  66.   end;
  67.  
  68. var
  69.   Form1: TForm1;
  70.   tt,gdd,st1,st,s,temp,f,ex:String;
  71.   i,j: Integer;
  72.   cmd:array[0..255] of char;
  73.  
  74. implementation
  75.  
  76. {$R *.DFM}
  77.  
  78. procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  79.   Y: Integer);
  80. begin
  81. if sender=bitbtn1 then bitbtn1.setfocus;
  82. if sender=button1 then button1.setfocus;
  83. if sender=button2 then button2.setfocus;
  84. if sender=button3 then button3.setfocus;
  85. end;
  86.  
  87. procedure TForm1.Timer1Timer(Sender: TObject);
  88. begin
  89. s:=g.caption;
  90. temp:='';
  91. For i:=2 to length(s) do
  92. Begin
  93.      temp:=temp+s[i];
  94. End;
  95. temp:=temp+s[1];
  96. g.caption:=temp;
  97. end;
  98.  
  99. procedure TForm1.Button1Click(Sender: TObject);
  100. begin
  101. memo1.visible:=true;
  102. button4.visible:=true;
  103. panel1.visible:=false;
  104. panel2.visible:=false;
  105. end;
  106.  
  107. procedure TForm1.Button2Click(Sender: TObject);
  108. begin
  109. memo1.visible:=false;
  110. button4.visible:=false;
  111. panel1.visible:=true;
  112. panel2.visible:=false;
  113. end;
  114.  
  115. procedure TForm1.Button3Click(Sender: TObject);
  116. begin
  117. memo1.visible:=false;
  118. button4.visible:=false;
  119. panel1.visible:=false;
  120. panel2.visible:=true;
  121. end;
  122.  
  123. procedure TForm1.Button4Click(Sender: TObject);
  124. Var
  125.    MyFile:TextFile;
  126. begin
  127.   AssignPrn(MyFile);
  128.   Rewrite(MyFile);
  129. for i:=0 to memo1.lines.count-1 do
  130.   Writeln(MyFile, memo1.lines[i]);
  131.   System.CloseFile(MyFile);
  132. end;
  133.  
  134. procedure TForm1.DirectoryListBox1Change(Sender: TObject);
  135. begin
  136. filelistbox1.directory:=directorylistbox1.directory;
  137. end;
  138.  
  139. procedure TForm1.DriveComboBox1Change(Sender: TObject);
  140. begin
  141. directorylistbox1.drive:=drivecombobox1.drive;
  142. end;
  143.  
  144. procedure TForm1.FileListBox1DblClick(Sender: TObject);
  145. begin
  146. for i:=0 to filelistbox1.items.count-1 do
  147. if filelistbox1.selected[i] then
  148. Begin
  149. s:=ExtractFileExt(filelistbox1.items[i]);
  150. f:=filelistbox1.items[i];
  151. temp:='';
  152. for j:=2 to length(s) do
  153. temp:=temp+s[j];
  154. ex:=temp;
  155. End;
  156. if ex<>'' then
  157. Begin
  158. if (ex='txt') or (ex='doc') then
  159.    Begin
  160.         strpcopy(cmd,'notepad '+f);
  161.         winexec(cmd,Sw_shownormal);
  162.    End;
  163. if (ex='bmp') then
  164.    Begin
  165.         strpcopy(cmd,'pbrush '+f);
  166.         winexec(cmd,Sw_shownormal);
  167.    End;
  168.  
  169. if (ex='com') or (ex='exe') then
  170. begin
  171. r.edit1.text:=f;
  172. r.show;
  173. end;
  174. End;
  175. ex:='';
  176.  
  177. end;
  178.  
  179. procedure TForm1.Button5Click(Sender: TObject);
  180. begin
  181. d.edit1.text:=filelistbox1.directory;
  182. d.show;
  183. end;
  184.  
  185. procedure TForm1.CClick(Sender: TObject);
  186. begin
  187. for i:=0 to filelistbox1.items.count-1 do
  188. if filelistbox1.selected[i] then
  189. Begin
  190.      f:=filelistbox1.items[i];
  191.      ti.label1.caption:=f;
  192.      ti.show;
  193. End;
  194. getdir(0,gdd);
  195. filelistbox1.directory:='c:\';
  196. filelistbox1.directory:=gdd;
  197. end;
  198.  
  199. procedure TForm1.b6Click(Sender: TObject);
  200. begin
  201. winexec('notepad quake.txt',SW_ShowNormal);
  202. end;
  203.  
  204. procedure TForm1.Button7Click(Sender: TObject);
  205. var
  206.    fi:textFile;
  207. begin
  208. st:='';
  209. tag:=0;
  210. For i:=1 to 26 do
  211. if fileexists(chr(66+i)+':\Quake\id1\pak0.pak') then tag:=i;
  212. if tag in [1..26] then
  213. Begin
  214. StrpCopy(cmd,tt+'qube -kX '+chr(66+tag)+':\Quake\id1\pak0.pak');
  215. chdir(chr(66+tag)+':\quake\id1');
  216. Winexec(cmd,SW_ShowNormal);
  217. End;
  218. if tag=0 then where.show;
  219. tag:=0;
  220. chdir(tt);
  221. end;
  222.  
  223. procedure TForm1.Button10Click(Sender: TObject);
  224. begin
  225. Winexec('\adquedit\adquedit',SW_ShowMaximized);
  226. end;
  227.  
  228. procedure TForm1.Button8Click(Sender: TObject);
  229. begin
  230. winexec('notepad help.txt',sw_Shownormal);
  231. end;
  232.  
  233. procedure TForm1.Button6Click(Sender: TObject);
  234. begin
  235. winexec('quakemon',SW_ShowMaximized);
  236. end;
  237.  
  238. procedure TForm1.Button9Click(Sender: TObject);
  239. begin
  240. tag:=0;
  241. For i:=1 to 26 do
  242. if fileexists(chr(66+i)+':\Quake\quake.exe') then
  243. begin
  244. tag:=i;
  245. strpcopy(cmd,chr(66+i)+':\Quake\quake.exe');
  246. winexec(cmd,SW_ShowNormal);
  247. end;
  248. if tag=0 then
  249.    if opendialog1.execute then
  250.       Begin
  251.       StrpCopy(cmd,opendialog1.filename);
  252.       winexec(cmd,SW_ShowNormal);
  253.       end;
  254. tag:=0;
  255.  
  256. end;
  257.  
  258. procedure TForm1.Button11Click(Sender: TObject);
  259. begin
  260. For i:=0 to filelistbox1.items.count-1 do
  261. if filelistbox1.selected[i] then
  262. begin
  263. ren.label1.caption:=filelistbox1.filename;
  264. ren.show;
  265. end;
  266.  
  267. end;
  268.  
  269. procedure TForm1.FormShow(Sender: TObject);
  270. begin
  271. getdir(0,tt);
  272. where.label2.caption:=tt;
  273. end;
  274.  
  275. end.
  276.