home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / windows / print / divprint.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-06-04  |  745 b   |  32 lines
  1. USES WinCrt, WinTypes, WinProcs, Strings;
  2.  
  3. VAR
  4.   szDevices: ARRAY [0..255] OF CHAR;
  5.   pDevice, NullPos: pChar;
  6.  
  7. BEGIN
  8.   AutoTracking := FALSE;
  9.   WindowSize.x := 300;
  10.   WindowSize.y := 150;
  11.   StrCopy (WindowTitle, 'In Windows angemeldete Drucker : ');
  12.  
  13.   GetProfileString ('devices', NIL, '', szDevices, SizeOf(szDevices));
  14.   WriteLn (StrPas(szDevices));
  15.  
  16.   pDevice := szDevices;
  17.   NullPos := StrScan(pDevice, #0);
  18.   pDevice := NullPos +1;
  19.   WriteLn (StrPas(pDevice));
  20.  
  21.   NullPos := StrScan(pDevice, #0);
  22.   pDevice := pDevice + StrLen(pDevice) +1;
  23.   WriteLn (StrPas(pDevice));
  24.  
  25.   NullPos := StrScan(pDevice, #0);
  26.   pDevice := pDevice + StrLen(pDevice) +1;
  27.   WriteLn (StrPas(pDevice));
  28.  
  29.   ReadLn;
  30.   DoneWinCrt;
  31. END.
  32.