Prozess / Programm suchen

[emsländer]

Moin,

ich starte via shellexec ein Programm. (psftp.exe)

Jetzt möchte ich an dieser Stelle warten, bis dieser seine Arbeit getan hat. (holt einige Sachen wo ab)
In dieser Zeit ist psftp.exe als Task im TaskManager zu sehen.

Wie kann ich diesen Prozess nun via Delphi finden?


Gruss

EL

[Bernhard Geyer]

Wenn du mit CreateProcess arbeitest kann du das Startverhalten (Warten, ...) steuern.

[emsländer]

Zitat von Bernhard Geyer:

Wenn du mit CreateProcess arbeitest kann du das Startverhalten (Warten, ...) steuern.

Äh - ich bitte um Infos... damit hab ich noch nicht gearbeitet

Gruss

EL

[Der.Kaktus]

Hallo,

schau Dir mal den Thread und Source an. Da gehts zwar um SSH aber auch mit Putty.

plinkremote

[emsländer]

ich finde in der Codelib das hier:

Delphi-Quellcode:

function ExecAndWait(Filename, Params: Widestring; WindowState: word = SW_SHOWNORMAL): boolean; 
var 
  ShExecInfoW: SHELLEXECUTEINFOW; 
  ShExecInfoA: SHELLEXECUTEINFOA; 
  r : Cardinal; 
begin 
  Result := false; 
  if Filename = '' then exit; 
  if not WideFileExists(FileName) then 
    exit; 

  if Win32IsUnicode then 
  begin 
    ZeroMemory(@ShExecInfoW, SizeOf(ShExecInfoW)); 
    ShExecInfoW.Wnd := GetForegroundWindow; 
    ShExecInfoW.cbSize := sizeof(SHELLEXECUTEINFOW); 
    ShExecInfoW.fMask := SEE_MASK_NOCLOSEPROCESS; 
    ShExecInfoW.lpVerb := 'open'; 
    ShExecInfoW.lpFile := PWideChar(Filename); 
    ShExecInfoW.lpParameters := PWideChar(Params); 
    ShExecInfoW.lpDirectory := PWideChar(WideExtractFileDir(Filename)); 
    ShExecInfoW.nShow := WindowState; 
    Result := ShellExecuteExW(@ShExecInfoW); 
  end 
  else 
  begin 
    ZeroMemory(@ShExecInfoA, SizeOf(ShExecInfoA)); 
    ShExecInfoA.Wnd := GetForegroundWindow; 
    ShExecInfoA.cbSize := sizeof(SHELLEXECUTEINFOA); 
    ShExecInfoA.fMask := SEE_MASK_NOCLOSEPROCESS; 
    ShExecInfoA.lpVerb := 'open'; 
    ShExecInfoA.lpFile := PChar(AnsiString(Filename)); 
    ShExecInfoA.lpParameters := PChar(AnsiString(Params)); 
    ShExecInfoA.lpDirectory := PChar(AnsiString(WideExtractFileDir(Filename))); 
    ShExecInfoA.nShow := WindowState; 
    Result := ShellExecuteExA(@ShExecInfoA); 
  end; 
  try 
    if Result then 
    begin 
      if Win32IsUnicode then 
        r := WaitForSingleObject(ShExecInfoW.hProcess, INFINITE) 
      else 
        r := WaitForSingleObject(ShExecInfoA.hProcess, INFINITE); 
    end; 
  finally 
    if Win32IsUnicode then 
      CloseHandle(ShExecInfoW.hProcess) 
    else 
      CloseHandle(ShExecInfoA.hProcess); 
  end; 
end;

Was für eine Unit muss ich für WideExtractFileDir etc. angeben?
bzw. eigentlich sollte das ja auch mit extractfiledir etc. gehen?


und wo muss man das hier:
(Win32Platform = VER_PLATFORM_WIN32_NT) angeben?

Gruss

EL

[Sharky]

Zitat von emsländer:

ich finde in der Codelib das hier:

Hai emsländer.

Hast Du auch das hier in der CL gesehen?

[emsländer]

Zitat von Sharky:

Zitat von emsländer:

ich finde in der Codelib das hier:

Hai emsländer.

Hast Du auch das hier in der CL gesehen?

jetzt ja

Hast dafür auch vielleicht noch einen Beispielaufruf?

Gruss

EL

[Luckie]

Was ist daran
function ShellExecuteAndWaitA(hWnd: HWND; Operation, FileName, Parameters, Directory: PAnsiChar; ShowCmd: Integer; bWait: BOOL): HINST; stdcall; unklar? Die Parameter sind doch selbsterklärend.

[emsländer]

Zitat von Luckie:

Was ist daran
function ShellExecuteAndWaitA(hWnd: HWND; Operation, FileName, Parameters, Directory: PAnsiChar; ShowCmd: Integer; bWait: BOOL): HINST; stdcall; unklar? Die Parameter sind doch selbsterklärend.

hat sich schon erledigt.... war über das wait-true gestolpert.

vielen Dank für Eure Hilfe

wie immer top

Gruss

EL