[solved]How re-order the list of my application inside ProcExp?

[d2010]

Hello.
I have my main application chiajnax.exe.
Main application, executefile "Devcinfo.exe" at multiples  times.
C:Q1=Can I display devcinfo.exe,devcinfo , devcinfo as exactly "msedge.exe"?

Code: Pascal  [Select][+][-]

1. function ExecuteFile(const FileName, Params, DefaultDir: string;ShowCmd: Integer): THandle;
2. var
3.   zFileName, zParams, zDir: array[0..999] of Char;
4. begin
5.   Result := ShellExecute(Application.MainForm.Handle, nil,
6.     StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
7.     StrPCopy(zDir, DefaultDir), ShowCmd);
8. end;
9.  

C:Q2=Can I hide conhost.exe inside ProcExp-list-executables?
 but only conhost.exe linked with devcinfo.exe
 

[Khrys]

Rename your executable to  msedge.exe,  add the correct icon and check Win32 gui application (-WG) under Config and Target to close the console.

I'll have to ask, though - why do you want to impersonate commonly installed software? Are you writing a virus?

[Thaddy]

I'll have to ask, though - why do you want to impersonate commonly installed software? Are you writing a virus?

Same question here.
But a better solution is to make them child processes from a main executable, which is an option of TProcess.
That will not hide it completely but will show the processes are related.
IOW you can write a console launcher that owns the child processes, which can be GUI apps too.
When the console app is terminated, the child processes are also terminated.

Maybe that is what you mean?

[d2010]

Same question here.
But a better solution is to make them child processes from a main executable, which is an option of TProcess.
That will not hide it completely but will show the processes are related.
IOW you can write a console launcher that owns the child processes, which can be GUI apps too.
When the console app is terminated, the child processes are also terminated.
Maybe that is what you mean?

Yes I used Tprocess, and he work very good.

Code: [Select]

procedure RunScriptMy;
var
  ScriptProcess : TProcessUTF8;
begin
  AssertTrue('ScriptEngine "' + ScriptEngine + '" does not exist.',
    FileExistsUTF8(ScriptEngine));
  ScriptProcess := TProcessUTF8.Create(nil);
  try
    ScriptProcess.CommandLine := ScriptEngine + ' ' + GetScriptFileName(FPath);
    ScriptProcess.Execute;
    ScriptProcess.WaitOnExit;
  finally
    ScriptProcess.Free;
  end;
end;

Thank you very much.