[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

program ExDelphi;
 {executes Delphi, minimizing all apps currently running}
uses
 WinProcs, WinTypes, Messages;
var
 ExResult: integer;
 ExResultSt: string;
 
 function EnumProc (WinHandle: HWnd; Param: LongInt): Boolean;
  far;
 begin
  if (GetParent (WinHandle) = 0) and (not IsIconic (WinHandle))
    and
     (IsWindowVisible (WinHandle)) then
  begin
   SendMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  end; { if...}
  EnumProc := TRUE;
 end; { EnumProc }

 begin {ExDelphi}
   EnumWindows(@EnumProc, 0);
   ExResult := WinExec ('DELPHI.EXE', SW_SHOW);
   if ExResult < 32 then
   begin
     Str(ExResult, ExResultSt);
     ExResultSt := 'Error Loading Delphi : ' + ExResultSt + #0;
     MessageBox (0, @ExResultSt[1], 'EDS ExDelphi Loader',
                 mb_OK or mb_IconInformation);
   end; {if...}
 end. {ExDelphi}

------------------------------------------------------------------
not too big of a program but supposed to be cool.  will minimize all
windows as it executes delphi.

Well, it compiles and works for me. What you have to do is:
        - open a new project;
        - close form1 and unit1;
        - open the project source;
        - paste the whole code above over what is already there;
        - save the project as exdelphi.DPR;
        - build. {result is an EXE of 4K}

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]