Thema: Delphi Sendkeys erzwingen

Einzelnen Beitrag anzeigen

Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#8

Re: Sendkeys erzwingen

  Alt 2. Jul 2006, 18:38
wegem dem registry problem: habs rausgefunden!

Delphi-Quellcode:
var
 Registry: TRegistry;
begin
 with TRegistry.Create do
  begin
    try
      Rootkey:=HKEY_CURRENT_USER;
      if OpenKey('Software\Jaimy\loginControl',True) then
      begin
        if ReadString('Maus_Y')='then
        begin
          ShowMessage('motz');
        end;
      end;
    finally
      Free;
    end;
  end;
  Mit Zitat antworten Zitat