unit hiShortcut;

interface

uses Kol,Share,Debug,shortcut;

type
  THIShortCut = class(TDebug)
   private
   public
    _prop_FileName:string;
    _prop_Param:string;
    _prop_ShortcutName:string;
    _prop_WorkingDirectory:string;
    _prop_Description:string;

    _event_onCreate:THI_Event;

    _data_FileName:THI_Event;
    _data_Param:THI_Event;
    _data_ShortcutName:THI_Event;
    _data_WorkingDirectory:THI_Event;
    _data_Description:THI_Event;

    procedure _work_doCreate(var _Data:TData; Index:word);
  end;

implementation

procedure THIShortCut._work_doCreate;
begin
  CreateLink( PChar(ReadString(_Data,_data_FileName,_prop_FileName)),
              PChar(ReadString(_Data,_data_param,_prop_param)),
              PChar(ReadString(_Data,_data_ShortcutName,_prop_ShortcutName)),
              PChar(ReadString(_Data,_data_WorkingDirectory,_prop_WorkingDirectory)),
              PChar(ReadString(_Data,_data_Description,_prop_Description)));
  _hi_onEvent(_event_onCreate);
end;

end.