das ist jetzt meine ganze
dll
Delphi-Quellcode:
library Script;
uses
ShareMem ,SysUtils,
Classes, JvInterpreter, Tools_Scripte;
Procedure ScriptData(st : TScriptThread; pIdentifier: PChar; var Value: Variant; Args: TJvInterpreterArgs; var Done: Boolean); stdcall;
var
lCommands : TStringlist;
Identifier : string;
begin
Identifier := String(pIdentifier);
//...
Identifier := lowercase(Identifier);
lCommands.Text := lowercase(lCommands.Text);
done := not( lCommands.IndexOf(Identifier) = -1);
if Identifier = 'sleep' then sleep(Args.values[0]);
if Identifier = 'strtoint' then value := StrToInt(Args.values[0]);
if Identifier = 'uppercase' then Value := Uppercase(Args.Values[0]);
if Identifier = 'konsole' then st.OutKonsoleP(Args.Values[0]);
end;
exports
ScriptData;
begin
end.