[SOLVED] TProcess : Failed to execute : 193

[Gizmo]

Lazarus 1.4.0, FPC 2.6.0, Windows 7 Pro, 64-bit.

The following simple right click procedure should launch the Windows Disk Manager from my own program on all Windows platforms, but so far I have not got beyond testing on Windows 7 Pro. It returns

Project raised exception class 'EProcess' with message
Failed to execute : 193
At address 4D6636

Code: [Select]

procedure TfrmYaffi.menShowDiskManagerClick(Sender: TObject);
var
ProcDiskManager : TProcess;
begin
  try
    ProcDiskManager            := TProcess.Create(nil);
    ProcDiskManager.Executable := 'C:\Windows\System32\diskmgmt.msc'; // the file is there, I am administror, my program runs as administrator, and if I paste that into terminal, it launches
    ProcDiskManager.Options    := [poWaitOnExit, poUsePipes];
    ProcDiskManager.Execute;
  finally
    ProcDiskManager.Free;
  end;
end;

I have no spaces in my project path, I tried copying it all to c:\temp too, and I tried running just the exe externally of Lazarus. Results are always the same.

Any ideas? Ta

[paweld]

*.msc is not executable file, only file associated with mmc.exe. You must exec like this:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  ProcDiskManager : TProcess;
begin
  try
    ProcDiskManager            := TProcess.Create(nil);
    ProcDiskManager.Executable := 'mmc.exe';
    ProcDiskManager.Parameters.Add:='C:\Windows\System32\diskmgmt.msc';
    ProcDiskManager.Options    := [poWaitOnExit, poUsePipes];
    ProcDiskManager.Execute;
  finally
    ProcDiskManager.Free;
  end;
end;

[Gizmo]

Well don't I now feel like an as**!

Many thanks for pointing that out. I thought I was going insane.