Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

varrussian, latin: HKL;

russian:=LoadKeyboardLayout('00000419', 0);

latin:=LoadKeyboardLayout('00000409', 0); где то в программе

SetActiveKeyboardLayout(russian);

Прислал Igor Nikolaev aKa The Sprite.

Для этого используется функция GetAsyncKeyState(KeyCode)

в качестве параметра используются коды клавиш(например A – 65).

GetAsyncKeyState возвращает ненулевое значение если во время ее вызова нажата указаная клавиша.

//----Этот пример отлавливает нажатие клавиши «A»

//Этот код необходимо поместить в процедуру обработки

//таймера с интервалом «1»

ifgetasynckeystate(65)<>0 thenshowmessage('A – pressed');

//----------

Прислал Igor Nikolaev aKa The Sprite.

В действительности она служит флагом проверки нажатия клавиши, по соглашению, код #0 означает, что никакой клавиши нажато не было. В некоторых случаях событие может активизировать передачу этого кода (например, прямым вызовом), или предок, возможно, уже обработал нажатие клавиши, и Key был установлен в #0.

Nomadicотвечает:

A: ActivateKeyboardLayout(). Учтите, что использование этой функции – плохой тон.

Nomadicсоветует:

unitPortInfo;

interface

usesWindows, SysUtils, Classes, Registry;

functionEnumModems: TStrings;

implementation

functionEnumModems: TStrings;

var

R: TRegistry;

s: ShortString;

N: TStringList;

i: integer;

j: integer;

begin

Result:= TStringList.Create;

R:= TRegistry.Create;

try

withR do begin

RootKey:= HKEY_LOCAL_MACHINE;

ifOpenKey('\System\CurrentControlSet\Services\Class\Modem', False) then

ifHasSubKeys then begin

N:= TStringList.Create;

try

GetKeyNames(N);

fori:=0 toN.Count – 1 do begin

closekey; { + }

openkey('\System\CurrentControlSet\Services\Class\Modem',false); { + }

OpenKey(N[i], False);

s:= ReadString('AttachedTo');

forj:=1 to4 do if pos(chr(j+ord('0')), s) > 0 thenBreak;

Result.AddObject(ReadString('DriverDesc'),TObject(j));

CloseKey;

end;

finally

N.Free;

end;

end;

end;

finally

R.Free;

end;

end;

end.

unitComm;

interface

usesMessages,WinTypes,WinProcs,Classes,Forms;

type

TPort=(tptNone,tptOne,tptTwo,tptThree,tptFour,tptFive,tptSix,tptSeven,tptEight);

TBaudRate= (tbr110, tbr300, tbr600, tbr1200, tbr2400, tbr4800, tbr9600, tbr14400, tbr19200, tbr38400, tbr56000, tbr128000, tbr256000);

TParity=(tpNone,tpOdd,tpEven,tpMark,tpSpace);

TDataBits=(tdbFour,tdbFive,tdbSix,tdbSeven,tdbEight);

TStopBits=(tsbOne,tsbOnePointFive,tsbTwo);

TCommEvent=(tceBreak, tceCts, tceCtss, tceDsr, tceErr, tcePErr, tceRing, tceRlsd, tceRlsds, tceRxChar, tceRxFlag, tceTxEmpty);

TCommEvents= set ofTCommEvent;

const

PortDefault=tptNone;

BaudRateDefault=tbr9600;

ParityDefault=tpNone;

DataBitsDefault=tdbEight;

StopBitsDefault=tsbOne;

ReadBufferSizeDefault=2048;

WriteBufferSizeDefault=2048;

RxFullDefault=1024;

TxLowDefault=1024;

EventsDefault=[];

type

TNotifyEventEvent=procedure(Sender:TObject; CommEvent:TCommEvents) of object;

TNotifyReceiveEvent=procedure(Sender:TObject; Count:Word) of object;

TNotifyTransmitEvent=procedure(Sender:TObject; Count:Word) of object;

TComm= class(TComponent)

private

FPort:TPort;

FBaudRate:TBaudRate;

FParity:TParity;

FDataBits:TDataBits;

FStopBits:TStopBits;

FReadBufferSize:Word;

FWriteBufferSize:Word;

FRxFull:Word;

FTxLow:Word;

FEvents:TCommEvents;

FOnEvent:TNotifyEventEvent;

FOnReceive:TNotifyReceiveEvent;

FOnTransmit:TNotifyTransmitEvent;

FWindowHandle:hWnd;

hComm:Integer;

HasBeenLoaded:Boolean;

Error:Boolean;

procedureSetPort(Value:TPort);

procedureSetBaudRate(Value:TBaudRate);

procedureSetParity(Value:TParity);

procedureSetDataBits(Value:TDataBits);

procedureSetStopBits(Value:TStopBits);

procedureSetReadBufferSize(Value:Word);

procedureSetWriteBufferSize(Value:Word);

procedureSetRxFull(Value:Word);

procedureSetTxLow(Value:Word);

procedureSetEvents(Value:TCommEvents);