Programm starten und beenden
Es handelt sich ja um kein Programm per se. Alles, was ich zu dem Thema gefunden habe, beschäftigt sich mit richtigen Programmen. Hier soll ja ein ControlPlanel geschlossen werden. Da ist die Suche nach dem richtigen
Handle imho nicht so trivial. Ich lasse mich aber gerne eines Besseren belehren.
Mein Versuch:
Delphi-Quellcode:
ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
ShExecInfo.lpVerb := 'runas';
ShExecInfo.lpFile := 'control';
ShExecInfo.lpDirectory := nil;
ShExecInfo.lpParameters := 'C:\Windows\system32\desk.cpl desk,@Themes';
ShExecInfo.nShow := SW_SHOWNORMAL;
ShellExecuteEx(@ShExecInfo);
sleep(5000);
//PostMessage(ShExecInfo.Wnd, WM_CLOSE, 0,0);
TerminateProcess(ShExecInfo.hProcess, 0);
Das öffnet zwar den Dialog, schließt ihn aber nicht wieder.
Ich weiß leider wirklich nicht, wie ich das
Handle des Fensters bekommen soll.
