Can not find unit ShellAPI

[dl8aax]

Hi,

Ich habe mir die Lazarus IDE Installiert und mache nun erste gehversucht. Ich habe ein einfaches Programm erstellt welchen eine einfache Berechnung ausfürt.

Nun will ich einen button erstellen wo bei einen Klick der Standartbrowser eine URL öffnet.
Leider bekomme ich folgende Fehlermeldung:

stabkalk2.pas(10,12) Fatal: Can not find unit ShellAPI used by stabkalk2.


mein Programm sieht so aus:

Delphi-Quellcode:

unit stabkalk2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, IpHtml, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ShellAPI;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1        : TForm1;
  stabzahl     : Integer;
  stabzahlalt  : Integer;
  abstandmax   : integer;
  abstand      : Real;
  abstandalt   : Real;
   lichtemass  : integer;
   stabstaerke : integer;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
    // Berechnung
  label5.caption:='Berechnung laeuft';
  abstandmax  :=   Strtoint(edit3.Text);
  lichtemass  :=   StrToInt(edit2.text);
  stabstaerke :=   Strtoint(edit1.Text);

   stabzahl := round(StrToInt(edit2.text)/120);  //Anzahl Stäbe zu anfang
   label5.caption:= IntToStr(stabzahl);
repeat
  // Befehlsfolge, die öfters ausgeführt werden soll
     stabzahlalt := stabzahl;
     abstandalt  := Abstand;
     abstand:= (lichtemass - (stabzahl * stabstaerke)) / (stabzahl + 1);
     label5.caption:= IntToStr(stabzahlalt)+' Stäbe mit einen Abstand von ' +FloattoStrF(abstandalt,ffFixed,8,1)+'mm';
     stabzahl := stabzahl -1;

until abstand>abstandmax;
   // FloatToStrF(myFloat, ffFixed, 8, 2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
       ShellExecute(Handle, '', PChar('http://www.dl8aax.de.vu'), '', '', 0);
end;



end.

hat jemand nen Tipp ?


mfg Dirk