home *** CD-ROM | disk | FTP | other *** search
/ Quake++ for Quake / Quake++.iso / quake / unit5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-23  |  1.3 KB  |  74 lines
  1. unit Unit5;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   Twhere = class(TForm)
  11.     Edit1: TEdit;
  12.     Label1: TLabel;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Button3: TButton;
  16.     OpenDialog1: TOpenDialog;
  17.     Label2: TLabel;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.     procedure Button3Click(Sender: TObject);
  21.     procedure FormShow(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   where: Twhere;
  30.   t,s,temp:String;
  31.   i,j:INteger;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure Twhere.Button1Click(Sender: TObject);
  38. begin
  39. close;
  40. end;
  41.  
  42. procedure Twhere.Button2Click(Sender: TObject);
  43. begin
  44. if opendialog1.execute then edit1.text:=opendialog1.filename;
  45. end;
  46.  
  47. procedure Twhere.Button3Click(Sender: TObject);
  48. var
  49.    fi:TextFile;
  50.    cmd:array[0..255] of char;
  51. begin
  52. if edit1.text<>'' then
  53. Begin
  54. s:=edit1.text;
  55. for i:=1 to length(s) do
  56. if s[i]='\' then j:=i;
  57. For i:=1 to j-1 do
  58. temp:=temp+s[i];
  59. StrpCopy(cmd,t+'qube -kX '+edit1.text);
  60. chdir(temp);
  61. Winexec(cmd,SW_ShowNormal);
  62. temp:='';
  63. chdir(t);
  64. End;
  65. close;
  66. end;
  67.  
  68. procedure Twhere.FormShow(Sender: TObject);
  69. begin
  70. t:=label2.caption;
  71. end;
  72.  
  73. end.
  74.