ShellExecute() - bei Rückkehr zum Ur-Fensterist die Reihenfolge in TaskBar verschoben

[KodeZwerg]

Hiermit könnte es funktionieren:

Delphi-Quellcode:

procedure RunAndWait(const Executable, Parameter: string);
var
  tmpStartupInfo: TStartupInfo;
  tmpProcessInformation: TProcessInformation;
  tmpProcHandle: Cardinal;
begin
  FillChar(tmpStartupInfo, SizeOf(tmpStartupInfo), 0);
  with tmpStartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    wShowWindow := SW_SHOW;
  end;
  Application.Minimize;
  CreateProcess(PChar(Executable),PChar(Parameter),Nil,Nil,False,CREATE_NO_WINDOW,
    nil,nil,tmpStartupInfo,tmpProcessInformation);
  tmpProcHandle:= tmpProcessInformation.hProcess;
  WaitForSingleObject(tmpProcHandle, INFINITE);
  Application.Restore;
end;

und so Aufrufen RunAndWait('D:\npp\notepad++.exe','E:\hello.cpp'); @Admins, das Problem bestand immer noch (wegen 2015)