Где найти модуль SendKeys?

[saylar_06]

Собственно сам вопрос, в интернете ссылок что то не обнаружил говорят что должен быть в папке с Дельфином но и там нету =(

P.S Простите если вопрос бестолковый или ранее обсуждался...

[Пепел Феникса]

http://www.tt.rim.or.jp/~muramatu/de...ey/SENDKEY.PAS
это?

[saylar_06]

Сообщение от Пепел Феникса

http://www.tt.rim.or.jp/~muramatu/de...ey/SENDKEY.PAS
это?

по моему это, никогда его не видел, пойду смотреть =)

Спасибо!

_________________________________

хммм, при установке выдаёт ошибку =(

resultCode := VkKeyScan( Word(source) );

[Warning] SendKey.pas(26): Unsafe type 'PChar'
[Warning] SendKey.pas(28): Unsafe type 'PChar'
[Warning] SendKey.pas(31): Method 'Destroy' hides virtual method of base type 'TObject'
[Warning] SendKey.pas(62): Unsafe typecast of 'Integer' to 'TWindowObj'
[Warning] SendKey.pas(67): Variable 'continueFlg' might not have been initialized
[Warning] SendKey.pas(74): Unsafe type 'TFarProc'
[Warning] SendKey.pas(76): Unsafe type 'TFarProc'
[Warning] SendKey.pas(88): Unsafe type 'proc: Pointer'
[Warning] SendKey.pas(88): Unsafe code '@ operator'
[Warning] SendKey.pas(89): Unsafe type 'EnumFunc: Pointer'
[Warning] SendKey.pas(89): Unsafe type 'proc: Pointer'
[Warning] SendKey.pas(90): Unsafe type 'EnumFunc: Pointer'
[Warning] SendKey.pas(96): Unsafe typecast of 'TWindowObj' to 'Integer'
[Warning] SendKey.pas(99): Unsafe type 'EnumFunc: Pointer'
[Warning] SendKey.pas(102): Unsafe type 'EnumFunc: Pointer'
[Hint] SendKey.pas(99): Value assigned to 'ok' never used
[Hint] SendKey.pas(97): Value assigned to 'GetFocusWindow' never used
[Warning] SendKey.pas(92): Return value of function 'GetFocusWindow' might be undefined
[Warning] SendKey.pas(117): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(122): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(123): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(125): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(126): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(135): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(137): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(137): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(144): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(145): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(147): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(148): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(151): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(152): Unsafe type 'TargetClass: PAnsiChar'
[Warning] SendKey.pas(153): Unsafe type 'Buffer: PAnsiChar'
[Warning] SendKey.pas(206): Combining signed and unsigned types - widened both operands
[Hint] SendKey.pas(174): Variable 'test' is declared but never used in 'SendOneKey'
[Hint] SendKey.pas(238): Variable 'counter' is declared but never used in 'SendOneChar'
[Error] SendKey.pas(400): Incompatible types: 'Char' and 'Word'
[Warning] SendKey.pas(539): Unsafe type 'PChar'
[Warning] SendKey.pas(550): Unsafe type 'chars: PAnsiChar'
[Warning] SendKey.pas(551): Unsafe type 'chars: PAnsiChar'
[Warning] SendKey.pas(552): Unsafe type 'chars: PAnsiChar'
[Warning] SendKey.pas(553): Unsafe type 'chars: PAnsiChar'
[Fatal Error] dclusr.dpk(36): Could not compile used unit '..\..\..\..\Users\Администратор\Desktop\SendKey.pas'

[_Engine_]

function CharToVirtualKey( source: Char; var shift: boolean; var ctrl: boolean; var menu: boolean): WORD;
var
    resultCode: WORD;
    upperWord : WORD;
begin
    resultCode := VkKeyScan( source );
    upperWord := resultCode shr 8;
    case upperWord of
       1,3,4,5: shift := true;
       6 : begin
             ctrl := true;
             menu := true;
           end;
       7 : begin
             shift := true;
             ctrl := true;
             menu := true;
           end;
    end;
    result := resultCode and $00ff;
end;

попробуй так

[saylar_06]

спасибо, всё получилось