home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 November / Chip_1999-11_cd.bin / zkuste / VBasic / Data / Utility / Winz.exe / EJEM_DEL.EXE / EJEMPLO.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-11  |  2KB  |  102 lines
  1. unit Ejemplo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     Button3: TButton;
  14.     Button4: TButton;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     Shape1: TShape;
  20.     Shape2: TShape;
  21.     procedure Button1Click(Sender: TObject);
  22.     procedure Button2Click(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure Button3Click(Sender: TObject);
  25.     procedure Button4Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36. Function  WINCATRAZ(crc:pchar):longint; far; external 'WINZ';
  37. {$R *.DFM}
  38.  
  39. procedure TForm1.Button1Click(Sender: TObject);
  40. VAR
  41. nada:integer;
  42. begin
  43. {-------------------------------------
  44.  Permite visualizar el CRC del equipo.
  45.  -------------------------------------}
  46.  
  47. nada := wincatraz('ACCION=0');
  48.  
  49.  
  50. end;
  51.  
  52. procedure TForm1.Button2Click(Sender: TObject);
  53. var
  54. retorno:longint;
  55. begin
  56. {-------------------------------------
  57.  Verifica si esta en el equipo deseado.
  58.  -------------------------------------}
  59.  
  60. RETORNO := wincatraz('CRC=378491400');
  61.  
  62.     If RETORNO <> 1365332084 Then
  63.        begin
  64.         MessageDlg('No esta en el equipo de Erich Bⁿhler!.', mtwarning,[mbOK], 0);
  65.         Exit;
  66.        End;
  67.  
  68.     MessageDlg('Se encuentra en el equipo de Erich Bⁿhler              (que hace usted en mi equipo?).', mtwarning,[mbOK], 0);
  69.  
  70. end;
  71.  
  72. procedure TForm1.FormCreate(Sender: TObject);
  73. begin
  74. MessageDlg('Lea WINZ.HLP antes de correr este ejemplo.', mtcustom,[mbOK], 0);
  75. end;
  76.  
  77. procedure TForm1.Button3Click(Sender: TObject);
  78. var
  79. nada:integer;
  80. begin
  81. {-------------------------------------
  82. Produce error de protecci≤n general.
  83. -------------------------------------}
  84.  
  85. nada := wincatraz('ACCION=1');
  86.  
  87. end;
  88.  
  89. procedure TForm1.Button4Click(Sender: TObject);
  90. var
  91. nada:integer;
  92. begin
  93. {-------------------------------------
  94. Produce que se cuelgue la aplicaci≤n.
  95. -------------------------------------}
  96.  
  97. nada := wincatraz('ACCION=2');
  98.  
  99. end;
  100.  
  101. end.
  102.