IShellLink-Problem

[CalganX]

Hi,
ich versuche derzeit mit Hilfe des IShellLink-Interfaces eine Verknüpfung zu erstellen. Klappt auch ganz gut, nur kann ich das Objekt nicht erstellen...

Ich habe bereits die ActiveX-Unit eingebunden (siehe Thread Verknüpfung erstellen [untester Thread]), hat aber nichts gebracht, auch eine SHObjidl-Unit (siehe PSDK) gibt es nicht, auch nicht bei den Jedi-Headers.

Es ist einfach zum Haareraufen...
In welcher Unit befindet sich den nun das Interface?

Chris

[CalganX]

wirklich dumm muss man sein...

In dem Thread steht ja auch noch die Antwort...

Chris

[Christian Seehase]

Moin Chris,

wenn ich mich mal kurz aus diesem Thread zitieren darf:

Zitat von Christian Seehase:

In Uses musst Du natürlich ActiveX und ShlObj aufnehmen.

Wenn ich mich nicht verzählt habe, 5. Posting von unten.

[EDIT]
Mist, wieder zu spät
[/EDIT]

[CalganX]

Hi,
da wir gerade beim Thema sind gibt es jetzt wieder ein Problem:
ich habe die Funktion von dir nur um die einige Parameter erweitert, die in folgendem Source deutlich werden sollen:

Delphi-Quellcode:

procedure TMainForm.btnDo1Click(Sender: TObject);
var
  sExecPath, sPath, sArg, sTemp: string;
begin
  sPath := 'rundll32.exe';
  sTemp := cbModules.Text;
  sTemp := copy(sTemp, pos(':: ', sTemp) + 3, length(sTemp));
  sArg := 'shell32.dll,Control_RunDLL ' + sTemp + ',,0';
  sExecPath := '%windir%';
  if not CreateShortcut(sPath, sArg, edtOutput.Text, sExecPath) then begin
    MessageDlg('Die Verknüpfung konnte nicht erstellt werden:' + #13#10 + SysErrorMessage(GetLastError), mtError, [mbOK], 0);  end;
end;

Allerdings gibt es beim Testen ein Problem. Wenn ich als Ausgabe C:\ wähle und ein beliebiges (es kann jedes sein) Modul auswähle, kommt folgender Fehler:

Zitat:

---------------------------
Error
---------------------------
Die Verknüpfung konnte nicht erstellt werden:
Das System kann den angegebenen Pfad nicht finden
---------------------------
OK
---------------------------

Erklären kann ich mir das nur, dass er ein Problem mit dem einfachem rundll32.exe.

Hast du eine Idee, Christian?

Chris

[Christian Seehase]

Moin Chris,

wie sieht den Deine Funktion CreateShortcut aus?

[CalganX]

Nicht großartig verändert:

Delphi-Quellcode:

function CreateShortcut(const sTargetPath: string;
                          const sParams: string;
                          const sOutput: string;
                          const sExecPath: string): boolean;
const
  IID_IPersistFile: TGUID = '{0000010b-0000-0000-C000-000000000046}';

var
  slShellLink    : IShellLink;
  pfPersistFile  : IPersistFile;
  wszShortCut    : PWideChar;
  hRes           : HResult;
  sShortCut      : string;
  dwLen          : DWORD;

begin
  Result := false;

  hRes := CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLinkA, slShellLink);
  if hRes <> S_OK then begin
    exit;
  end;
  slShellLink.SetPath(PChar(sTargetPath));
  slShellLink.SetArguments(PChar(sParams));
  hRes := slShellLink.QueryInterface(IID_IPersistFile,pfPersistFile);
  if hRes <> S_OK then begin
    exit;
  end;
  dwLen := (MAX_PATH+1)*2;
  wszShortcut := AllocMem(dwLen);
  try
    sShortCut := sOutput;
    StringToWideChar(sShortCut,wszShortCut,dwLen);
    hRes := pfPersistFile.Save(wszShortCut, TRUE);
  finally
    FreeMem(wszShortCut,dwLen);
  end;
  Result := (hRes = S_OK);
end;

Chris

[Christian Seehase]

Moin Chris,

hast Du mal kontrolliert, an welcher Stelle die Funktion aussteigt?
Es gibt ja immerhin drei mögliche Stellen.

[CalganX]

Nein... Brauche ich aber (leider) auch nicht mehr...
Bei der "Konvertierung" ist mir ein Fehler unterlaufen: in deinem Orignial hast du den Dateinamen automatisch drangehangen. Ich wiederrum habe dies nicht gemacht und müsste daher eigentlich den Dateinamen selber "richten". Habe ich gemacht und hat funktioniert...

Danke für deine Hilfe...!

Chris