home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / explorer / expini.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  510 b   |  31 lines
  1. unit Expini;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: EXPLORER }
  5.  
  6. interface
  7.  
  8. uses IniFiles;
  9.  
  10. const
  11.   WinPathLen = 144;
  12.   IniFileName = 'explorer.ini';
  13.  
  14. var
  15.   IniFile: TIniFile;
  16.   HasIni: Boolean;
  17.  
  18. implementation
  19.  
  20. uses WinProcs, SysUtils, StrUtils;
  21.  
  22. var
  23.   a: array[0..WinPathLen] of char;
  24.  
  25. initialization
  26.   GetWindowsDirectory(a, SizeOf(a));
  27.   HasIni := FileExists(AddBackSlash(StrPas(a)) + IniFileName);
  28.   IniFile := TIniFile.Create(IniFileName);
  29. end.
  30.  
  31.