Desktoplink/Startmenülink in Windows 8/10

[creehawk]

Tja, was die API's angeht sind das wohl noch ältere Exemplare, passend eben zu Delphi 7. Die Codes haben wir seinerzeit von hier oder sonstwo aus dem Netz: Beispiel

Delphi-Quellcode:

function CreateStartMenuDirectory(aFolderName: string): Boolean; //swissdelphi.ch
var
  PIDL: PItemIDList;
  hPath: PChar;
  Speicher: IMalloc;
begin
  Result := False;
  if SUCCEEDED(SHGetSpecialFolderLocation(0, CSIDL_PROGRAMS, PIDL)) then
  begin
    hPath := StrAlloc(MAX_PATH);
    SHGetPathFromIDList(pIdl, hPath);
    SetLastError(0);
    CreateDirectory(PChar(hPath + '\\' + aFolderName), nil);
    if (GetLastError = 0) or (GetLastError = ERROR_ALREADY_EXISTS) then Result := True;
  end;
  if Succeeded(SHGetMalloc(Speicher)) then
  begin
    Speicher.Free(PIDL);
    {$IFDEF VER100}
    Speicher.Release;
    {$ENDIF}
  end;
  StrDispose(hPath);
end;

Die Frage ist eben: wo landet das ohne Startmenü?
Und die entsprechende Funktion für einen Desktoplink: wo landet die?

Win 10 installieren und mal ausprobieren ist das eine, aber wenn es NICHT geht, wie macht man das dann?

Unsere Programme sind Editoren für recht alte Spiele so ab 1998, die aber alle auch unter Win7 bisher mehr oder weniger problemlos laufen, da die Hersteller entsprechende Patches nachlieferten.


creehawk