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