Explizites tasten event auslösen

[gibb]

hi, hab das jetzt folgendermassen gelöst:

Delphi-Quellcode:

procedure TSFontroler.UpdateFanSpeed(AFan : TFanOverlayObject);
var
  HWNDControl : HWND;
  i:Integer;
  wparam: smallint;
  strNewSpeed:String;
begin

  HWNDControl:= getControlHandle(AFan.ControleNumber);
  if Afan.NewSpeed <> -1 then begin
    if HWNDControl <> 0 then begin
      PostMessage(HWNDControl, WM_KEYDOWN, 46,0); // Delete taste runter
      PostMessage(HWNDControl, WM_KEYUP , 46,  $C000); // Delete taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, 46,0); // Delete taste runter
      PostMessage(HWNDControl, WM_KEYUP , 46,  $C000); // Delete taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, 46,0); // Delete taste runter
      PostMessage(HWNDControl, WM_KEYUP , 46,  $C000); // Delete taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, 8,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , 8,  $C000); // backspace taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, 8,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , 8,  $C000); // backspace taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, 8,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , 8,  $C000); // backspace taste rauf
      strNewSpeed:= inttostr(AFan.NewSpeed);
//      GPModLog.AddToLog('Speddfancontrole: fan'+ AFan.overlayName + ': ' + strNewSpeed );

      For i:= 1 teo Length(strNewSpeed) do begin
        wparam:= MapIntToKy(strNewSpeed[i]);
        PostMessage(HWNDControl, WM_KEYUP , 17,  $C000);  // ctrl up
        PostMessage(HWNDControl, WM_KEYUP , 16,  $C000);  // shift up
        PostMessage(HWNDControl, WM_KEYDOWN, wparam, 0); // Ctrl runter
   //     PostMessage(HWNDControl, WM_KEYUP , wparam,  $C000); //  Taste runter
         PostMessage(HWNDControl, WM_KEYUP , 17,  $C000);  // ctrl up
        PostMessage(HWNDControl, WM_KEYUP , 16,  $C000);  // shift up
      end;
    end;
  end;
end;

Das ist wie es gelöst ist zur zeit... kanns leider gerade nicht testen, aber ihr denkt so sollte das gehen das shift und ctrl ignoriert wird? Ausserdem habe ich immernoch das Problem das es mir murks schreibt beim KeyUp resp. das er mir dieselbe zahl nochmals schreibt....

und doch das sieht viel einfacher aus

gruss Sev