home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / dll.ifs < prev    next >
Text File  |  2001-05-13  |  562b  |  13 lines
  1. Program IFSTest;
  2. // compile the demo application, run it and minimize delphi. 
  3.  
  4. var 
  5.   Lib: ResourcePointer;
  6. Begin
  7.   if not LoadLibrary('user32.dll', Lib) then begin writeln('Failed');exit;end;
  8.   if not MapLibraryProc(Lib, 'FindWindowA', 'function FindWindow(C1, C2: PChar): Longint; stdcall;') then begin writeln('Failed');exit;end;
  9.   if not MapLibraryProc(Lib, 'ShowWindow', 'function ShowWindow(hWnd, nCmdShow: Longint): Integer; stdcall;') then begin writeln('Failed');exit;end;
  10.   ShowWindow(Findwindow('', 'Demo'), 2);
  11.   CloseLibrary(Lib);
  12. End.
  13.