home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff339.lzh / PCQ / Examples / Icons.p < prev    next >
Text File  |  1990-03-19  |  809b  |  31 lines
  1. program Icons;
  2.  
  3. {
  4.   This program shows how to access the arguments passed to a program
  5.   by the Workbench.  Compile and link this program, then make a
  6.   tool icon for it.  Then activate the program by clicking on some
  7.   project icons and this icon.  In my original archive, I included
  8.   a copy of the CLI icon in this directory, so you might be able to
  9.   use it.
  10.  
  11.   This program also shows that PCQ will open a default console window
  12.   if a program run from the Workbench needs it.
  13. }
  14.  
  15. {$I ":Include/Parameters.i"}
  16.  
  17. var
  18.    WB : WBStartupPtr;
  19.    Arg : Integer;
  20. begin
  21.     WB := GetStartupMsg();
  22.     if WB <> nil then begin
  23.     Writeln('There were ', WB^.smNumArgs, ' arguments.');
  24.     for Arg := 1 to WB^.smNumArgs do
  25.         writeln(WB^.smArgList^[Arg].waName);
  26.     readln;
  27.     end else
  28.     writeln('Run from the CLI');
  29. end.
  30.  
  31.