Hey Leute,

ich habe mein Programm soweit fertig programmiert. Auch meine Setup-routine läuft ohne Fehler ab. Nur wie kann ich mein Programm in die Startleiste "Alle Programme" hinzufügen. Habe innerhalb der DP auch schon gesucht. Könnte mir jemand helfen? Wäre nett

Kuck mal hier: http://www.luckie-online.de/files/myoldstuff/ da findest du einen LinkMaker, der das können sollte.

Hi Luckie,

wie kann ich den Code in meine vorhandene Setup-routine implementieren. Darf ich das überhaupt? Wäre nochmal für deine Hilfe dankbar...

In dem du kuckst, wie ich es gemacht habe und ihn deinen Bedürfnissen anpaßt.

aber im Grunde genommen brauchst du nur diese Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

function BuildLink(ExeFile, LinkFile, Description: string): Integer;
var
  wLinkFile : WideString;
  PersistFile : IPersistFile;
  Link : IShellLink;
begin
  result := 3;
  wLinkFile := LinkFile;
  if CoCreateInstance(CLSID_SHellLink, nil, CLSCTX_INPROC_SERVER, IShellLink,
    Link) = S_OK then
  begin
{$I-}
    MkDir(GetSpecialFolder(CSIDL_PROGRAMS) + '\' + ParamStr(2));
    if IOResult <> 0 then
    begin
      result := 2;
      exit
    end;
{$I+}
    PersistFile := Link as IPersistFile;
    Link.SetDescription(pointer(Description));
    Link.SetArguments(pointer(ExeFile));
    Link.SetWorkingDirectory(pointer(CutFilename(ExeFile)));
    Link.SetPath(pointer(ExeFile));
    if PersistFile.Save(PWideChar(wLinkFile), TRUE) = S_OK then
      result := -1
    else
      result := 3;
  end;
end;

aufrufen. Der zweite Parameter gibt an wo die lnk-Datei landen soll und wie sie heißen soll.

Aha...ok....

ich werde es mal probieren. Ihr werdet bestimmt noch von mir lesen..

Erstmal danke und bye

Beitrag editiert.

Ok, vielen Dank, Luckie,

macht Spaß, sich von dir helfen zu lassen. Dennoch habe ich auch noch was gefunden. Will nicht immer nu geholfen bekommen, deshalb schaut mal bitte hier nach Startmenü-Einträge

Ok, dann bis zum nächsten Thread