Ja, gefunden, danke. Leider aber ist im Hilfe-Menue von Delphi diese Zeile 'Mein erster Experte: HelloWorld' nicht aufgetaucht. Auch nach einem Restart Delphis nicht. Woran könnte das event. noch liegen?
Hier der Programm-Code der allerdings seinerzeit für Delphi6 geschriebe wurde:
Delphi-Quellcode:
unit HelloWorldExpert_Unit;
interface
uses ToolsAPI,
Vcl.Dialogs;
type
THelloWorldExpert =
class(TNotifierObject, IOTAWizard, IOTAMenuWizard)
function GetIdString:
string;
function GetName:
string;
function GetState: TWizardState;
function GetMenuText:
string;
procedure Execute;
end;
implementation
function THelloWorldExpert.GetIDString:
string;
Begin
result:='
BlackBird.HelloWorld';
end;
function THelloWorldExpert.GetName:
string;
Begin
result:='
Hello-World Experte';
end;
function THelloWorldExpert.GetState: TWizardState;
Begin
result:=[wsEnabled];
end;
function THelloWorldExpert.GetMenuText:
string;
Begin
result:='
Mein erster Experte: HelloWorld';
end;
procedure THelloWorldExpert.Execute;
Begin
ShowMessage('
Hello World');
end;
procedure Register;
Begin
RegisterPackageWizard(THelloWorldExpert.Create
as IOTAWizard);
end;
end.