home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d456 / DCSLIB25.ZIP / DCResource.pas < prev    next >
Pascal/Delphi Source File  |  2001-01-23  |  552b  |  36 lines
  1. {
  2.  BUSINESS CONSULTING
  3.  s a i n t - p e t e r s b u r g
  4.  
  5.          Components Library for Borland Delphi 4.x, 5.x
  6.          Copyright (c) 1998-2000 Alex'EM
  7.  
  8. }
  9. unit DCResource;
  10. interface
  11. {$R DCsp.res}
  12. {$I DCConst.inc}
  13.  
  14. var
  15.  IsShareware: boolean;
  16.  
  17. implementation
  18. uses
  19.   Windows;
  20.  
  21. function IsDelphiRunning: boolean;
  22. begin
  23.   Result := FindWindow('TAppBuilder', nil) <> 0;
  24. end;
  25.  
  26. initialization
  27.   IsShareware := False;
  28.  {$IFDEF SHREWARE}
  29.   if not IsDelphiRunning then
  30.   begin
  31.     IsShareware := True;
  32.   end;
  33.  {$ENDIF}
  34.  
  35. end.
  36.