Verknüpfung

[Sir Rufo]

Im OnCreate der Form (wie auch immer deine Form heißt ... bei soviel QuellCode den du zeigst, finde ich einfach nicht mehr durch )

Delphi-Quellcode:

procedure TForm1.Form1Create( Sender : TObject );
begin
  OleContainer1.CreateLinkToFile( 
    ExtractFilePath( ParamStr( 0 ) ) +  // liefert den Pfad wo die EXE zu dieser Anwendung liegt, egal wo die jetzt liegt
    'MeineTolleDatei.doc', // die Datei MeineTolleDatei.doc muss im gleichen Verzeichnis wie die Anwendung liegen, oder den Pfad anpassen
    True  // als Icon anzeigen, oder False wenn nicht als Icon
  );
end;