Sorry, aber ich wollt des Projekt heute abschließen und da hab ich wohl viel zu schnell weitergeschrieben...
Sorry!!
Hier ein Teil meines Codes:
Code:
type
TForm1 = class(TForm)
{...}
private
FOleInPlaceActiveObject: IOleInPlaceActiveObject;
procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
procedure OnURLMenuItemClick(Sender: TObject);
{...}
procedure TForm1.OnURLMenuItemClick(Sender: TObject);
begin
if(Sender is TMenuItem) and
((Sender as TMenuItem).Hint <> '') then
ShellExecute(self.Handle,'open',pchar((Sender as TMenuItem).Hint),
nil,nil,SW_SHOWNORMAL);
end;
//Im Code zum Suchen der Links:
mii.OnClick := OnURLMenuItemClick;
Ich hoffe, dass jemand ne Antwort weiß!
Gruß
S2B