HTML-Link erstellen unter Delphi

[raven_22]

Hallo Leute !

Ich wolle mal mit Delphi einen Ordner öffnen, hatte es aber nie hinbekommen.
Doch dank des Postings hier, geht es nun endlich.
Vielen Dank !


Gruß raven 8)

Delphi-Quellcode:

...
{$R *.dfm}
uses Shellapi;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'Open',PChar('EXPLORER.EXE'),'C:\WINDOWS\Cursors', nil, SW_ShowNormal);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(0, 'Open',PChar('C:\Programme\WinTV\WinTV2K.EXE'),'-nc', nil, SW_ShowNormal);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(0, 'Open',PChar('C:\Programme\opera75\opera.exe'),'www.giga.de', nil, SW_ShowNormal);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(0, 'Open',PChar('IEXPLORE.EXE'),'www.microsoft.com/germany', nil, SW_ShowNormal);
end;