home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_del / dll2.ifs < prev    next >
Text File  |  2001-06-08  |  2KB  |  49 lines
  1. Program IFSTest;
  2. // compile the demo application, minimize delphi and run this. 
  3.  
  4. function FindWindow(C1, C2: PChar): Longint; external 'user32.dll' name 'FindWindowA StdCall';
  5. function ShowWindow(hWnd, nCmdShow: Longint): Integer; external 'user32.dll' name 'ShowWindow StdCall';
  6. function SetWindowText(hWnd: Longint; Text: PChar): Longint; external 'user32.dll' name 'SetWindowTextA StdCall';
  7. var 
  8.   i, i2: Longint;
  9.   wnd: Longint;
  10. Begin
  11.   for i := 0 to 10000 do begin end;
  12.   wnd := Findwindow('', 'Demo');
  13.   SetWindowText(Wnd, 'Do you know what flashing windows are?');
  14.   for i := 0 to 40000 do begin end;
  15.   SetWindowText(Wnd, 'Are you certain about that?');
  16.   for i := 0 to 40000 do begin end;
  17.   SetWindowText(Wnd, 'Really?');
  18.   for i := 0 to 30000 do begin end;
  19.   SetWindowText(Wnd, 'I don''t think so');
  20.   for i2 := 0 to 15 do begin
  21.     for i := 0 to 1000 do begin end;
  22.     ShowWindow(Wnd, 0);
  23.     for i := 0 to 1000 do begin end;
  24.     ShowWindow(Wnd, 5);
  25.   end;
  26.   SetWindowText(Wnd, 'Do you want me to stop?');
  27.   for i2 := 0 to 15 do begin
  28.     for i := 0 to 1000 do begin end;
  29.     ShowWindow(Wnd, 0);
  30.     for i := 0 to 1000 do begin end;
  31.     ShowWindow(Wnd, 5);
  32.   end;
  33.   SetWindowText(Wnd, 'Really?');
  34.   for i2 := 0 to 5 do begin
  35.     for i := 0 to 1000 do begin end;
  36.     ShowWindow(Wnd, 0);
  37.     for i := 0 to 1000 do begin end;
  38.     ShowWindow(Wnd, 5);
  39.   end;
  40.   SetWindowText(Wnd, 'Okay');
  41.   for i2 := 0 to 5 do begin
  42.     for i := 0 to 1000 do begin end;
  43.     ShowWindow(Wnd, 0);
  44.     for i := 0 to 1000 do begin end;
  45.     ShowWindow(Wnd, 5);
  46.   end;
  47.   SetWindowText(Wnd, 'Demo');
  48. End.
  49.