Удаленное управление клавиатурой (Delphi 7)

[Rust.am]

Здрствуйте, пишу Программу удаленного управления и возникла проблема...
Как передать на удаленный компьютор клавиши с символами типа ; : . , и тд.

так же как с буквами не прокатывает

if (ssShift in Shift)and(key = Ord('Y')) then MainForm.ClientSocket1.Socket.SendText('KeyShY***' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else
if (ssCtrl in Shift)and(key = Ord('Y')) then MainForm.ClientSocket1.Socket.SendText('KeyCtrY**' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else
if (key = Ord('Y')) then MainForm.ClientSocket1.Socket.SendText('KeyY*****' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else

и как с функциональными клавишами тоже

if key = VK_DELETE then MainForm.ClientSocket1.Socket.SendText('KeyDel***' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else
if key = VK_RETURN then MainForm.ClientSocket1.Socket.SendText('KeyEnt***' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else

пробовал так -

if (ssShift in Shift)and(key = ord(';')) then MainForm.ClientSocket1.Socket.SendText('KeySh;***' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else
if (ssCtrl in Shift)and(key = Ord(';')) then MainForm.ClientSocket1.Socket.SendText('KeyCtr;**' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else
if (key = Ord(';')) then MainForm.ClientSocket1.Socket.SendText('Key;*****' + '_' + IntToStr((a*100)div 80) + '_' + IntToStr((b*100)div 80)) else

не срабатывает...

и еще очень странная ошибка - не передается маленькая "с" хотя с другими буквами таких проблем нет

[maxwallaby]

Я может и не достаточно компетентный в работе с сетями и тонкостей не знаю, но возможно как вариант передавать скан-коды клавиш?

[Rust.am]

А можно чуть подробнее?

[maxwallaby]

Ну скан-коды нужны для распознавания клавиш на аппаратном уровне и соответственно у каждой свой код. Я просто не знаю логики и принципов того что Вы делаете, поэтому не знаю как преподнести. Таблицу скан-кодов легко найти в интернете, а вот ещё материал по данной теме:
Расшифровка скан-кодов (Delphi): http://pblog.ru/?p=840
Думаю должно быть полезно почитать про ремаппинг: http://habrahabr.ru/blogs/windows/75290/
и собственно про преобразование:
http://www.delphisources.ru/pages/fa...scan_code.html
http://www.webdelphi.ru/2009/08/rabo...-kody-klavish/