IShellLink-Problem

[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