Стартовый пул

ConsoleEmulator/frostconsoleemulator.lpk

@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <Package Version="4">
+    <PathDelim Value="\"/>
+    <Name Value="FrostConsoleEmulator"/>
+    <Author Value="Fr0sT"/>
+    <CompilerOptions>
+      <Version Value="11"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="data;..\..\fpc\2.6.4\source\packages\winceunits\src"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Optimizations>
+          <OptimizationLevel Value="3"/>
+        </Optimizations>
+        <SmallerCode Value="True"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerMessages>
+          <MsgFileName Value=""/>
+        </CompilerMessages>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="Набор классов для запуска консольных программ и команд с перехватом IO и дополнительными фичами.
+Возможности:
+* Как визуальный, так и невизуальный (без Forms) вариант. Для
+использования визуального варианта надо объявить дефайн VCLConsole
+* Запуск любых консольных программ, batch файлов и т.д.
+* Получение вывода
+* Ввод команд после запуска программы
+* Отслеживание таймаута неактивности
+* Стандартизованный вывод сообщений об ошибках (должна быть поддержка в
+запускаемых программах/скриптах)
+* Запись выводимых данных в лог файл (для визуального варианта)"/>
+    <Version Major="1"/>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="data\consoleemulator.pas"/>
+        <UnitName Value="ConsoleEmulator"/>
+      </Item1>
+      <Item2>
+        <Filename Value="..\..\fpc\2.6.4\source\packages\winceunits\src\tlhelp32.pas"/>
+        <UnitName Value="TlHelp32"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>

ConsoleEmulator/frostconsoleemulator.pas

@@ -0,0 +1,20 @@
+{ This file was automatically created by Lazarus. Do not edit!
+  This source is only used to compile and install the package.
+ }
+
+unit FrostConsoleEmulator;
+
+interface
+
+uses
+  ConsoleEmulator, TlHelp32, LazarusPackageIntf;
+
+implementation
+
+procedure Register;
+begin
+end;
+
+initialization
+  RegisterPackage('FrostConsoleEmulator', @Register);
+end.