Sicherheitswarnung bei Verknüpfungen

[Captnemo]

Wenn ich eine Link erzeugen über diese Funktion:

Delphi-Quellcode:

function CreateLink(const AFilename, ALNKFilename, ADescription: string) : Boolean;
var
  psl : IShellLink;
  ppf : IPersistFile;
  wsz : PWideChar;
begin
  result:=false;
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil,
  CLSCTX_inPROC_SERVER, IID_IShellLinkA, psl)) then
  begin
    psl.SetPath(PChar(AFilename));
    psl.SetDescription(PChar(ADescription));
    psl.SetWorkingDirectory(PChar(ExtractFilePath(AFilename)));
    if SUCCEEDED(psl.QueryInterface(IPersistFile, ppf)) then
    begin
      GetMem(wsz, MAX_PATH*2);
      try
        MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH);
        ppf.Save(wsz, true);
        result:=true;
      finally
        FreeMem(wsz, MAX_PATH*2);
      end;
    end;
  end;
end;

dann kommt eine Sicherheitswarnung beim öffnen des Links.

Wenn ich aber die gleiche Verknüpfung per Drag and Drop über den Windows-Explorer erstelle kommt diese nicht.

Weiß einer warum? Es gibt zwar die Möglichkeit Sicherheitswarnungen für bestimmte Dateitypen generell abzuschalten, aber das wäre nicht das was ich will. Wenn z.B. ein Setup Verknüpfungen im Startmenu erstellt, kommt die Sicherheitswarnung ja auch nicht. Wie machen die das?