1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

library tbtypefile;

uses
  SysUtils;

{$R *.res}

procedure typefile(ParamIn : ShortString); stdcall;
begin
 writeln('Dieses Plugin ist nur ein Muster Plugin! Parameter: ' + ParamIn);
end;

exports
typefile;

begin
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// edit -> besser mit var
{function pipeCommandLine(commandLine:string):string;
begin
  result := commandLine + ACT_win_dir; // oder so
end;}
procedure pipeCommandLine(var commandLine:string);
begin
  commandLine := commandLine + ACT_win_dir; // oder so
end;

...
exports:
pipeCommandLine;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure ListPlugIns(ParamIn : ShortString); stdcall;
begin
  WriteLn('TitanMX - Service PlugIn by mâximüs');
end;

procedure ListCommands(ParamIn : ShortString); stdcall;
begin
  if (ParamIn = '') or (pos('titanmx',LowerCase(ParamIn))>=1) then
  begin
    //WriteLn('...........................................');
    WriteLn('[-- TitanMX - Written by mâximüs --]');
    WriteLn('time [run [color]] - DateTime output! Optional running and colored ;)');
  end;
end;

...

exports
  ListPlugIns,
  ListCommands,
  ...;                    

1:
2:
3:
4:
5:
6:

dir:         Wie "dir" in der Windows-Konsole, aber ohne Parameter.
cd:          Wie "cd" in der Windows-Konsole.
pause [-c]:  Wie "pause" in der Windows-Konsole. Parameter "-c" unterbindet Textausgabe.
sleep x:     Wartet x Millisekunden.
del Datei:   Löscht eine Datei (keine Dateimasken)
start Datei: Startet Datei.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

library tbmuster;

uses
  SysUtils;

{$R *.res}

procedure listplugins(ParamIn : ShortString); stdcall;
begin
  writeln('DLL-Name - kurze Erklärung - Autor');
end;

procedure listcommands(ParamIn : ShortString); stdcall;
begin
 writeln('[-- Name des Plugins - Autor --]');
 writeln('Kommando [Parameter] - kurze Kommando-Erklärung');
 ...
end;

//Die Parameter: Standardmäßig sollte jede Funktion den Parameter --help verarbeiten können. z.B. muster --help .
//Jeder Parameter-Schalter beginnt mit einem "-" z.B. -a bzw. -a=bla bzw. -a="bla bla" .

procedure muster(ParamIn : ShortString); stdcall;
begin
 writeln('Ein Muster!');
end;

exports
listplugins,
listcommands,
muster;

begin
end.                    

1:
2:
3:
4:
5:
6:
7:

procedure muster(ParamIn : ShortString); stdcall; 
var res:cardinal;
begin 
  res := execTitanCommand('md muku -r -c="x-rawxr" ');
  ...  
 writeln('Ein Muster!'); 
end;