home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / WAWARE.ZIP / WADEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-22  |  2.0 KB  |  67 lines
  1. program WinDemo;
  2.  
  3. uses CRT, WinAware;
  4.  
  5. var
  6.   MajorRev, MinorRev : byte;
  7.   ch : char;
  8.   Result : word;
  9.   Dresult : Longint;
  10.   ClipDat : pointer;
  11.   TestAr  : array [1..255] of char;
  12.   i : integer;
  13.  
  14. const  TestAr2 : array [1..32] of char = ('T', 'e', 's', 't',
  15.                                           '1', '2', '3', '4',
  16.                                           '1', '2', '3', '4',
  17.                                           '1', '2', '3', '4',
  18.                                           '1', '2', '3', '4',
  19.                                           '1', '2', '3', '4',
  20.                                           '1', '2', '3', '4',
  21.                                           '1', '2', '3', #0 );
  22.  
  23. BEGIN
  24.   Result := 0;
  25.   Dresult := 0;
  26.   if RunningWin386( MajorRev, MinorRev) then
  27.     begin
  28.     Writeln(' Running Win ', MajorRev:1, '.', MinorRev:1, ' in 386 mode.');
  29.     Writeln;
  30.     Result := OpenWinClip;
  31.     if Result <> 0 then
  32.       begin
  33.       Dresult := GetWinClipSize(1);
  34.       if Dresult < 255 then          { don't want to overflow the test array }
  35.         begin
  36.         Writeln( ' The text data in the clipboard is: ' );
  37.         Writeln;
  38.         GetMem(ClipDat, Dresult);
  39.         Result := GetWinClipData( ClipDat, 1 );
  40.         Move( ClipDat^, TestAr, Dresult );
  41.         Result := PutWinClipData( @TestAr2, 1, 32);
  42.         end
  43.       else
  44.         Writeln( 'More than 255 characters are in clipboard.');
  45.     end;
  46.     Result := CloseWinClip;
  47.     i := 1;
  48.     repeat
  49.       Write( TestAr[i] );
  50.       Inc(i);
  51.     until (TestAr[i] = #0) or (i = 255);
  52.     Writeln;
  53.     Writeln;
  54.     Writeln('Attempted to write some text to the clipboard.  Check it.');
  55.     ch := readkey;
  56.     Writeln;
  57.     Result := OpenWinClip;
  58.     Result := ClearWinClip;
  59.     Result := CloseWinClip;
  60.     end
  61.   else
  62.     begin
  63.     writeln(' Not in Win 386 mode.');
  64.     if MajorRev <> 0 then
  65.       writeln(' Windows version ', MajorRev:1, '.', MinorRev:1, ' in real or std mode.');
  66.   end;
  67. END.