klawisze

0

A wie ktoś jak zrobić (programow) żeby po wciśnięciu jakiejś kombinacji klawiszy program się uruchamiał.

0

musisz miec odpalony swoj program w trybie niewidocznym - potem dajesz registerhotkey - i w momencie przycisniecia dajesz przywrocenie formy na pierwszy plan, albo odpalenie 2 programu.

0

Nie jestem zaawansowany w tych sprawach możesz powiedzieć to samo troche bardziej po luchku, tak wytłumaczyć mi

0

ehh....

jak sie gumisie skoncza to napisze...

//skonczyly sie :)

ten kod bedzie na zmiane ukrywal/pokazywal forme. przy wcisnieciu Shift+f3. mozesz sobie dowolnie zmienic

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure HotKey(var Msg:TMessage);message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HotKey(var Msg: TMessage);
begin
form1.Visible:=not form1.Visible;
form1.BringToFront;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
registerhotkey(handle,0,MOD_SHIFT,VK_F3);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
unregisterhotkey(handle,0);
end;
0

kicha, nie działa. Może są inne sposoby.

0

kicha, nie działa. Może są inne sposoby.

jak nie dziala, jak dziala mi perfekcyjnie.
moze masz bledy w kodzie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1