home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd2.bin / sharewar / Slunec / app / 17 / _SETUP.1 / Default.pw < prev    next >
Text File  |  2000-08-29  |  3KB  |  90 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {     Programmer's Wizard 2 Pascal Script               }
  5. {     Petr Esner, petr.esner@atlas.cz                   }
  6. {                                                       }
  7. {     DEFAULT.PW - systemove skripty                    }
  8. {     (popis jazyka v souboru SCRIPT.DOC)               }
  9. {                                                       }
  10. {*******************************************************}
  11. uses ScriptUtils;
  12.  
  13. //provadeno po startu PW, pred nactenim zasuvnych modulu
  14. procedure OnStartup;
  15. Begin
  16.  
  17. end;
  18.  
  19. function GetPrefix: String;
  20. Begin
  21.   result := ExtractFileName(GetCurrentScript) + '_';
  22. end;
  23.  
  24. //provadeno po startu PW, po nacteni zasuvnych modulu
  25. procedure OnStarted;
  26. var
  27.   mLastProject: string;
  28.   mIndex: Integer;
  29.   mProjFileName, mProjName, mProjDesc: string;
  30.   mFiles: Array of String;
  31. Begin
  32.   //pokud byl program spusten s parametrem [FILENAME], je uz ted otevren
  33.   //nejaky dokument. V takovem pripade nesmime nacitat projekt, jinak bude
  34.   //dokument uzavren!
  35.   EnumFiles(mFiles);
  36.   if GetArrayLength(mFiles) > 0 then Halt; //nenacitat!
  37.  
  38.   //nacis posledni otevreny projekt
  39.   mLastProject := LowerCase(RegReadString(GetPrefix + 'LastProject', ''));
  40.  
  41.   if mLastProject <> '' then
  42.     for mIndex := 0 to GetProjectCount - 1 do Begin
  43.       //ziskat detaily o projektu
  44.       if GetProjectInfo(
  45.         mIndex,
  46.         mProjFileName,
  47.         mProjName,
  48.         mProjDesc
  49.       ) then
  50.         //otevrit projekt
  51.         if LowerCase(mProjFileName) = mLastProject then Begin
  52.           OpenProject(mIndex);
  53.           Halt;
  54.         end;
  55.     end;
  56. end;
  57.  
  58. //provadeno pred ukoncenim programu, pred uzavrenim oken
  59. //POZOR: uzivatel muze v teto fazi stale stornovat ukonceni
  60. //       programu!
  61. procedure OnClosing;
  62. var
  63.    mProjFileName, mProjName, mProjDesc: string;
  64. Begin
  65.   //ulozit nazev otevreneho projektu
  66.   if IsProjectOpened then Begin
  67.     if GetProjectInfo(
  68.              GetCurrentProject,
  69.              mProjFileName,
  70.              mProjName,
  71.              mProjDesc) then RegWriteString(GetPrefix + 'LastProject',
  72.                mProjFileName)
  73.     else
  74.       ShowMessage('Chyba p°i zφskßvßnφ informacφ o otev°enΘm projektu.');
  75.   end else RegWriteString('LastProject', '');
  76. end;
  77.  
  78. //provadeno pred ukoncenim aplikace, po uzavreni vsech oken,
  79. //pred uvolnenim zasuvnych modulu
  80. procedure OnShutdown;
  81. Begin
  82.  
  83. end;
  84.  
  85. {procedure Main;}
  86. Begin
  87.   ShowMessage('Tento skript nenφ urΦen k p°φmΘmu spouÜt∞nφ.');
  88. end.
  89.  
  90.