Problem about dll

[triperzz]

this is a delphi code save as dll...

Library Project1;
 
uses
  Forms,
  dialogs,
  unit1 in 'unit1.pas' {Form1};
 
{$R *.res}
 
{begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
}
 
procedure viewdelphi;
begin
  showmessage('Delphi');
end;
 
exports viewdelphi;
end.

Library Project1;

uses
  Forms,
  dialogs,
  unit1 in 'unit1.pas' {Form1};

{$R *.res}

{begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
}

procedure viewdelphi;
begin
  showmessage('Delphi');
end;

exports viewdelphi;
end.

To copy to clipboard, switch view to plain text mode 

could somebody help me convert this code to QT specially the export [function] part..