Um zu verstehen was ich meine ist es nötig die Bilder anzusehen.
Diese Verknüpfung über ShellExecute funktioniert nicht.
jemand einen Ahnung warum das so ist?
Delphi-Quellcode:
procedure StartApplication(nItem: integer);
var
sShellTo, sCmdLine, sFullPath: string;
begin
sShellTo := gS[nItem].ShellTo;
if InStr(0, sShellTo, '{') <> 0 then
sShellTo := '';
sFullPath := gS[nItem].WorkDir;
sCmdLine := gS[nItem].CmdLine;
sCmdLine := StringReplace(sCmdLine, ';', ',', [rfReplaceAll]);
if Length(sFullPath) = 0 then
sFullPath := RightTrim(ExtractFilePath(sShellTo))
else
SetCurrentDirectory(PWideChar(sFullPath));
ShellExecute(0, 'open', PWideChar(sShellTo), PWideChar(sCmdLine), PWideChar(sFullPath),
gS[nItem].ShowCmd);
end;
Sogar mit Ziel und Ausführen in funktioniert es nicht.
gruss