16. September 2024 09:45
FolderPath := '\\ZSENS01\Allgemein\Navision\Arbeitsplätze\' + "No.";
// ProcessStartInfo erstellen
ProcessStartInfo := ProcessStartInfo.ProcessStartInfo();
ProcessStartInfo.FileName := 'explorer.exe';
ProcessStartInfo.Arguments := FolderPath;
ProcessStartInfo.RedirectStandardError := FALSE; // Kein Redirect nötig
ProcessStartInfo.RedirectStandardOutput := FALSE; // Kein Redirect nötig
ProcessStartInfo.UseShellExecute := TRUE; // Setze UseShellExecute auf TRUE
// Prozess starten
Process := Process.Process();
Process.StartInfo := ProcessStartInfo;
IF NOT Process.Start() THEN
ERROR('Fehler beim Starten des Windows Explorers.');
16. September 2024 10:28
16. September 2024 11:29