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