[MMC Automation] Bestimmtes Snap-in automatisiert laden und öffnen

[hathor]

MMC.exe ist einfach: Es braucht ein XML-File zur Steuerung.
Die Endung der XML-Files ist üblicherweise MSC,
kann aber auch bei XML belassen werden.
/a öffnet im Autorenmodus, ermöglicht Änderungen, z.B. Maximized
.
Geänderte MSC-Files sollte man nicht im System32-Ordner speichern.
Im Beispiel müssen die MSC-Files im Programmordner sein, wenn kein Pfad angegeben wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  // diskmgmt.msc
var FN: String;
begin
FN:= ExtractFilePath(Application.ExeName)+'diskmgmt.msc';  // XML-File !
ShellExecute(0,nil,PChar('mmc.exe'),PChar(' /a '+FN),'',SW_SHOWMAXIMIZED);
end;

procedure TForm1.Button1Click(Sender: TObject);  // services.msc
var FN: String;
begin
FN:= ExtractFilePath(Application.ExeName)+'services.msc';  // XML-File !
ShellExecute(0,nil,PChar('mmc.exe'),PChar(' /a '+FN),'',SW_SHOWMAXIMIZED);
end;