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