Удаленное управление рабочим столом

[j0hnlem0n]

Здрасссьте приехали...
Там вообще-то и получение.

Точно есть получение, сразу не понял, слушай дак у тебя только keyup и keydown используются а почему kepress закомменчен?

[Stilet]

а почему kepress закомменчен?

"А скрипач не нужен, дарагой". Тем паче что мне и зажатия клавиши нужно отправлять тоже.

[j0hnlem0n]

Просто мне не понятно, в роде сделал все как у тебя
передача:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  btnShiftState:string;
begin
  //if ssShift in Shift then btnShiftState :='1' else btnShiftState:='0';
  tcpClient.Socket.WriteLn(keyBoardDown+'1000000001,'+IntToStr(Key));
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  btnShiftState:string;
begin
  //if ssShift in Shift then btnShiftState :='1' else btnShiftState:='0';
  tcpClient.Socket.WriteLn(keyBoardUp+'1000000001,'+IntToStr(Key));
end;

получение:

if (commandServer='108') then begin
  i:=Length(fullReadString);
  btnKey := copy(fullReadString, 4, i-3);
  btnKeyWord:= StrToInt(btnKey);
  kCode[1]:=btnKeyWord;
  kCode[2]:=MapVirtualKeyEx(btnKeyWord,0,GetKeyboardLayout(0));
  keybd_event(kCode[1],kCode[2],KEYEVENTF_EXTENDEDKEY or 0,0);
end;
if (commandServer='109') then begin
  i:=Length(fullReadString);
  btnKey := copy(fullReadString, 4, i-3);
  //keybd_event(ORD(StrToInt(btnKey)), 0, KEYEVENTF_KEYUP,0);
  btnKeyWord:= StrToInt(btnKey);
  kCode[1]:=btnKeyWord;
  kCode[2]:=MapVirtualKeyEx(btnKeyWord,0,GetKeyboardLayout(0));
  keybd_event(kCode[1],kCode[2],KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

Но проблема есть в том что шифт не отжимается, или отжимается коряво в чем может быть проблема ?

[Stilet]

в роде сделал все как у тебя

Нет не как у меня )
Я передаю клавишу (код) и ее состояние (нажата\отжата)

SendKey(Key,KEYEVENTF_KEYUP);

И принимаю:

procedure TForm1.Keyboard(AData: TIdBytes);
var key,State:Word;kCode:array[1..2] of byte;
begin
  with ReadStream(AData) do begin
    Position:=1;
    Key:=ReadWord;
    State:=ReadWord;
    free;
  end;
  kCode[1]:=key;
  kCode[2]:=MapVirtualKeyEx(Key,0,GetKeyboardLayout(0));
  keybd_event(kCode[1],kCode[2],KEYEVENTF_EXTENDEDKEY or State,0);
end;

Давно я его писал... Тут я шифты не передаю. Почему? Не помню
просто не понадобилось, работа и так работала как полагается.

[j0hnlem0n]

SendKey(Key,KEYEVENTF_KEYUP);

передается при событии onkeyup
У меня при при событии onkeyup передается номер '109'
В данном случае и потом я просто при принятии делаю как у тебя:

if (commandServer='109') then begin
  i:=Length(fullReadString);
  btnKey := copy(fullReadString, 4, i-3);
  //keybd_event(ORD(StrToInt(btnKey)), 0, KEYEVENTF_KEYUP,0);
  btnKeyWord:= StrToInt(btnKey);
  kCode[1]:=btnKeyWord;
  kCode[2]:=MapVirtualKeyEx(btnKeyWord,0,GetKeyboardLayout(0));
  keybd_event(kCode[1],kCode[2],KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

а при onkeydown

if (commandServer='108')

и там передаю в функцию не KEYEVENTF_KEYUP а 0 все так же в роде бы ) ?

Не помню
просто не понадобилось, работа и так работала как полагается.

Просто у меня после нажатия шифта уже нельзя работать как пологается )

[Stilet]

btnKey := copy(fullReadString, 4, i-3);

Обрати внимание: Я не передаю строки. Я передаю поток байт как есть.
Может у тебя не все красиво на самом деле в самой строке, что передается.
И почему именно строки?

[j0hnlem0n]

И почему именно строки?

Да это по глупости, до твоего примера не знал как правильно передать )... буквы то нормально передаются вот шифт.... он тоже в роде передается то есть я пишу строчные, потом нажимаю шифт у меня пишутся заглавные, но потом как бы я не нажимал шифт заглавными так и пишет... помогает капс ).. альт+шифт в роде тоже передается... вообще не могу понять что может быть и еще файлы выделяться все начинают ( как с шифтом. Белеберда начинается какая то в общем.
Я просто еще немного не понимаю этого

KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP

Может сделать просто KEYEVENTF_KEYUP ??

странно коненчно но добавил sleep(50) перед

keybd_event(kCode[1],kCode[2],KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

В роде заработало, только проблема появилась с выделением файлов мышкой с зажатым шифтом )

[Stilet]

но потом как бы я не нажимал шифт заглавными так и пишет

Значит отжатие шифта не передаешь.

[j0hnlem0n]

Разобрался в роде, спасибо всем ! Так и не понял в чем косяк был но твой код да рабочий )

[Stilet]

но твой код да рабочий

Естесственно )))
Я его иногда использую дома.