120 lines
3.6 KiB
Plaintext
120 lines
3.6 KiB
Plaintext
program INIFile_Test;
|
||
|
||
uses Crt, INIFile;
|
||
|
||
const Heading=15;
|
||
Struct =9;
|
||
Files =11+blink;
|
||
Descr =10;
|
||
Values =14;
|
||
Quest =10;
|
||
|
||
begin
|
||
ClrScr;
|
||
INIFileDebug := False;
|
||
OpenINI('C:\WINNT\SYSTEM.INI');
|
||
TextColor(Struct); Write('þ ');
|
||
TextColor(Heading);
|
||
WriteLn('Einige Informationen <20>ber Ihre FENSTER ....');
|
||
TextColor(Struct); WriteLn('³'); Write('ÃÄþ ');
|
||
TextColor(Files);
|
||
WriteLn('SYSTEM.INI');
|
||
|
||
{ Computer-Typ }
|
||
TextColor(Struct); Write('³ ÃÄÄ ');
|
||
TextColor(Descr); Write('Computer-Typ: ');
|
||
TextColor(Values); WriteLn(INIGet('boot.description','system.drv'));
|
||
|
||
{ Maus }
|
||
TextColor(Struct); Write('³ ÃÄÄ ');
|
||
TextColor(Descr); Write('Maus : ');
|
||
TextColor(Values); WriteLn(INIGet('boot.description','mouse.drv'));
|
||
|
||
{ Grafikkarte }
|
||
TextColor(Struct); Write('³ ÃÄÄ ');
|
||
TextColor(Descr); Write('Grafikkarte : ');
|
||
TextColor(Values); WriteLn(INIGet('boot.description','display.drv'));
|
||
|
||
{ Tastatur }
|
||
TextColor(Struct); Write('³ ÀÄÄ ');
|
||
TextColor(Descr); Write('Tastatur : ');
|
||
TextColor(Values); WriteLn(INIGet('boot.description','keyboard.typ'));
|
||
|
||
CloseINI;
|
||
OpenINI('C:\WINNT\WIN.INI');
|
||
TextColor(Struct); Write('ÃÄþ ');
|
||
TextColor(Files);
|
||
WriteLn('WIN.INI');
|
||
|
||
{ Land }
|
||
TextColor(Struct); Write('³ ÃÄÄ ');
|
||
TextColor(Descr); Write('Land : ');
|
||
TextColor(Values); WriteLn(INIGet('intl','sCountry'));
|
||
|
||
{ W„hrung }
|
||
TextColor(Struct); Write('³ ÃÄÄ ');
|
||
TextColor(Descr); Write('W„hrung : ');
|
||
TextColor(Values); WriteLn(INIGet('intl','sCurrency'));
|
||
|
||
{ Standard-Drucker }
|
||
TextColor(Struct); Write('³ ÃÄÄ ');
|
||
TextColor(Descr); Write('Std.-Drucker: ');
|
||
TextColor(Values); WriteLn(INIGet('windows','device'));
|
||
|
||
{ Hintergrund-Bild }
|
||
TextColor(Struct); Write('³ ÀÄÄ ');
|
||
TextColor(Descr); Write('HG-Bild : ');
|
||
TextColor(Values); WriteLn(INIGet('Desktop','Wallpaper'));
|
||
|
||
CloseINI;
|
||
OpenINI('C:\WINDOWS\SYSTEM\OEMINFO.INI');
|
||
TextColor(Struct); Write('ÀÄþ ');
|
||
TextColor(Files);
|
||
WriteLn('OEMINFO.INI');
|
||
|
||
{ Computer-Modell }
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Computer-Typ: ');
|
||
TextColor(Values); WriteLn(INIGet('general','Model'));
|
||
|
||
{ Hersteller }
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Hersteller : ');
|
||
TextColor(Values); WriteLn(INIGet('general','Manufacturer'));
|
||
|
||
{ Support Informationen }
|
||
TextColor(Struct); Write(' ÀÄþ ');
|
||
TextColor(Files); WriteLn('Support Informationen');
|
||
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Zeile1: ');
|
||
TextColor(Values); WriteLn(Copy(INIGet('Support Information','Line1'),1,63));
|
||
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Zeile2: ');
|
||
TextColor(Values); WriteLn(Copy(INIGet('Support Information','Line2'),1,63));
|
||
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Zeile3: ');
|
||
TextColor(Values); WriteLn(Copy(INIGet('Support Information','Line3'),1,63));
|
||
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Zeile4: ');
|
||
TextColor(Values); WriteLn(Copy(INIGet('Support Information','Line4'),1,63));
|
||
|
||
TextColor(Struct); Write(' ÃÄÄ ');
|
||
TextColor(Descr); Write('Zeile5: ');
|
||
TextColor(Values); WriteLn(Copy(INIGet('Support Information','Line5'),1,63));
|
||
|
||
TextColor(Struct); Write(' ÀÄÄ ');
|
||
TextColor(Descr); Write('Zeile6: ');
|
||
TextColor(Values); WriteLn(Copy(INIGet('Support Information','Line6'),1,63));
|
||
|
||
CloseINI;
|
||
WriteLn;
|
||
TextColor(Quest);
|
||
Write('Bitte Taste dr<64>cken .... ');
|
||
ReadKey;
|
||
WriteLn('danke!');
|
||
TextColor(7);
|
||
end. |