Einzelnen Beitrag anzeigen

wschrabi

Registriert seit: 16. Jan 2005
448 Beiträge
 
#1

wie ruft man den WSL auf windows 10 in Delphi auf?

  Alt 14. Apr 2024, 18:46
Liebe Leute,
ich habe hier diesen code (unten) und bekommen diesen Fehler:
Fehler beim Starten des WSL-Prozesses
cmd: wsl find . - type f -name socpus*.ris -exec cat {} + > ../bigmergedscopusfiles.ris

Woran kann das liegen?
DANKE



Delphi-Quellcode:
procedure tform1.RunAWKCommandInWSL(cmd:string);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
  StartupInfo.cb := SizeOf(StartupInfo);
  try
     if CreateProcess(nil, Pchar(format('''%s''',[cmd])) , nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
        begin
       // Prozess erfolgreich gestartet
       CloseHandle(ProcessInfo.hProcess);
       CloseHandle(ProcessInfo.hThread);
     end
     else
     begin
       // Fehler beim Starten des Prozesses
       //ShowMessage('Fehler beim Starten des WSL-Prozesses');
       WriteLOgMemo(msg_window, run_mode, clRed, format(' Fehler beim Starten des WSL-Prozesses cmd: %s',[cmd]));
    
     end;
  except
     on E : Exception do
       WriteLOgMemo(msg_window, run_mode, clRed, format(' Exception-error: %s Call: %s',[e.message,format('CreateProcess(nil, Pchar(%s) , nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) ',[cmd])]));
   

  end;
end;

procedure tform1.wslcmd();
begin
   //RunAWKCommandInWSL('dir *.*');
   RunAWKCommandInWSL('wsl find . - type f -name socpus*.ris -exec cat {} + > ../bigmergedscopusfiles.ris');

   


end;
  Mit Zitat antworten Zitat