Windows 7 Theme wechseln

[Keks]

Zitat von EWeiss:

Mein Sample mal geladen?

Ähm, nein ... Du hattest doch selbst geschrieben, dass es nicht geht!?

Zitat von EWeiss:

Das Handle kommt nicht von der rundll32.exe sondern vom Dialog-Fenster.

Was macht Dich da so sicher? Wenn das so wäre, müsste ja mein Code funktionieren:
http://www.delphipraxis.net/1129551-post9.html

Zitat von EWeiss:

Und zwar wie schon geschrieben mit
FindWindow('CabinetWClass', 'Anpassung')

Dann noch ein drittes Mal: Für FindWindow muss ich den Fenstertitel kennen. Das ist aber sprachabhängig und ich kann nicht die Sprache des Betriebssystems vom Benutzer voraussetzen oder bestimmen.

[EWeiss]

Zitat:

Was macht Dich da so sicher? Wenn das so wäre, müsste ja mein Code funktionieren:

Tut er auch!
Vorraus gesetzt du verwendest das richtige Handle was du "zum dritten mal" über FindWindow in Erfahrung bringen mußt
und das geht nun mal nur über den Window Titel

Und warum soll das nicht gehen über die Sprachen?
Es wird doch eine Api geben mit der man die Lokale Sprache identifizieren kann.

Meim Sample funktioniert und der Dialog wird auch ordnungsgemäß geschlossen.

PS:
Mit "Was nicht geht!"
Meinte ich die funktionen die ich nachher aufgelistet habe
SW_ Flags und das warten auf den Dialog (Deshalb auskommentiert und Sleep(2000) eingefügt)

Zitat:

dass das Theme-ControlPanel keine .exe-Datei ist sondern eine .cpl-Datei.

Nur so nebenbei keine .cpl Datei sondern eine DLL die NUR zu .cpl umbenannt wurde zur besseren identifizierung siehe (Systemsteuerung)
Alternativ könntest du den Namen auch über TCPLInfo in erfahrung bringen.



gruss

[Keks]

Zitat von EWeiss:

Meim Sample funktioniert und der Dialog wird auch ordnungsgemäß geschlossen.

Du verwendest ja auch FindWindow. Ich kann dies aber nicht verwenden, da ich sonst für jede Windowssprache vorab herausfinden müsste, wie die lokale Bezeichnung des Fensters lautet.

Ich habe mal einen neuen Ansatz gestartet:

Delphi-Quellcode:

function EnumWindowsProc(wHandle: HWND; m: TMemo): Bool; stdcall; export;
var
  Title, ClassName: array[0..255] of char;
  tid, pid: DWORD;
begin
  Result := True;
  GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  tid := GetWindowThreadProcessId(wHandle, @pid);
  if IsWindowVisible(wHandle) then
     m.Lines.Add(string(Title) + ' | ' + string(ClassName) + ' | '+ IntToStr(tid)+'/'+IntToStr(pid));
end;

procedure TSystemForm.Button5Click(Sender: TObject);
var
  pi: TProcessInformation;
  si: TStartupInfo;
  aFile : String;
begin
  aFile := 'notepad.exe';
  //aFile := 'C:\Windows\system32\rundll32.exe C:\Windows\system32\shell32.dll,Control_RunDLL C:\Windows\system32\desk.cpl';
  FillMemory( @si, sizeof( si ), 0 );
  si.cb := sizeof( si );
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOWNORMAL;
  CreateProcess(
    Nil,
    PChar( aFile + '' ),
    Nil, Nil, False,
    NORMAL_PRIORITY_CLASS, Nil, Nil,
    si, pi
  );
  Memo1.Lines.Add('processinfo.dwProcessId: '+IntToStr(pi.dwProcessId));
  sleep(5000);
  EnumWindows(@EnumWindowsProc, Integer(Memo1));
end;

Das ist schön, denn damit erhalte ich eine Test-Ausgabe wie:
processinfo.dwProcessId: 7896
Unbenannt - Editor | Notepad | 10084/7896

Womit ich das Fenster dem aufrufenden Prozess zuordnen kann.
Das funktioniert dann zwar mit einem ausführbaren Programm wie notepad.exe, aber nicht beim Ausführen einer .cpl per rundll.32.exe.