Имитация нажатия клавиш

[Air]

У меня вопрос.
Высмотрел в модуле "Windows" следующее:

{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }

Почему когда я делаю так

keybd_event($41,0, 0, 0);

имитируется нажатие клавиши "а" вместо "А"?

И как вообще заставить "нажаться клавишу" проше:

keybd_event(ord('А'),0, 0, 0);

Результат "А" (но получится "а")

keybd_event(ord('b'),0, 0, 0);

Результат "b" (а не что-то левое) ?

Благодарю за внимание.

[B_N]

Сообщение от Air

Почему когда я делаю так

keybd_event($41,0, 0, 0);

имитируется нажатие клавиши "а" вместо "А"?

Очевидно потому, что не "зажат" Caps Lock. keybd_event буквально "нажимает" клавишу, не более того. Будет включена русская раскладка клавиатуры - значит пойдёт кириллица.

[Air]

А не подскажете как программно на момент "нажатия" включить Caps Lock (и соответственно выключить)?

[B_N]

Сообщение от Air

А не подскажете как программно на момент "нажатия" включить Caps Lock (и соответственно выключить)?

Тоже с помощью keybd_event ! Через сканкод VK_CAPITAL - нажать/отпустить. Но вообще, всё зависит от того, что Вы делаете. Может ведь вполне хватить WM_CHAR, например.

[Air]

Но вообще, всё зависит от того, что Вы делаете.

В моей программе реализована процедура запуска от другого пользователя.
Я использую системную утилиту "RunAs.exe" после чего она требует ввести пароль (всё бы ничего), но вводить пароль с клавы нельзя (другие пользователи могут спалить), поэтому мне нужно программно ввести пароль.
Вот моя задача.

[Air]

Дык, а не отжимается Caps Lock, так же и VK_SHIFT, только после того как на клаве нажму. Что не так?
P.S.
Дошло

keybd_event(VK_SHIFT,0, KEYEVENTF_KEYUP, 0);

[B_N]

Сообщение от Air

Дык, а не отжимается Caps Lock, так же и VK_SHIFT, только после того как на клаве нажму. Что не так?

	keybd_event(VK_CAPITAL,0, 0, 0);
	keybd_event(VK_CAPITAL,0, KEYEVENTF_KEYUP, 0);
	keybd_event('A',0, 0, 0);
	keybd_event(VK_CAPITAL,0, 0, 0);
	keybd_event(VK_CAPITAL,0, KEYEVENTF_KEYUP, 0);

А запустить процесс под другим именем вполне можно (и лучше) через CreateProcessWithLogonW.

[Air]

BOOL WINAPI CreateProcessWithLogonW(
  __in         LPCWSTR lpUsername,
  __in_opt     LPCWSTR lpDomain,
  __in         LPCWSTR lpPassword,
  __in         DWORD dwLogonFlags,  // здесь я не знаю что писать
  __in_opt     LPCWSTR lpApplicationName,
  __inout_opt  LPWSTR lpCommandLine,
  __in         DWORD dwCreationFlags, // здесь я не знаю что писать
  __in_opt     LPVOID lpEnvironment, // здесь я не знаю что писать
  __in_opt     LPCWSTR lpCurrentDirectory,
  __in         LPSTARTUPINFOW lpStartupInfo, // здесь я не знаю что писать
  __out        LPPROCESS_INFORMATION lpProcessInfo // здесь я не знаю что писать
);

Спасибо за подсказку, что-нибудь придумаю.

[B_N]

Air, параметры, начиная с пятого, аналогичны параметрам CreateProcess и dwCreationFlags, lpEnvironment, lpCurrentDirectory и lpCurrentDirectory можно вообще оставлять нулевыми, только передавать двумя последними параметрами адреса соответствующих структур, примеры на форуме Вы наверняка видели. А dwLogonFlags - LOGON_WITH_PROFILE для загрузки профиля учётной записи, если он нужен, или LOGON_NETCREDENTIALS_ONLY для сетевого входа, по большому счёту его тоже можно оставить нулевым, всё зависит от целей

[Air]

Благодарю Вас.

Выкладываю свои наработки, вроде как всё работает.

uses JwaWinBase;

...

procedure TForm1.Button1Click(Sender: TObject);
 var
    si: STARTUPINFOW;
    pif: PROCESS_INFORMATION;
    res: Bool;
   s: string;
 begin
  si.cb := SizeOf(startupinfow);
   si.dwFlags  := STARTF_USESHOWWINDOW;
   si.wShowWindow := SW_SHOWDEFAULT;
   si.lpReserved := nil;
   si.lpDesktop := nil;
   si.lpTitle := 'Konsole';

  res := CreateProcessWithLogonW('Администратор', 'Wiktor', '123', LOGON_WITH_PROFILE,
     'c:\123.exe', nil
     , CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
   if booltostr(res) = '0' then
    begin

  //  str(GetLastError, s); тут правда не до понял...
     ShowMessage('CreateProcessWithLogonResult: ' + booltostr(res) + #10 +
       'GetLastError: ' + s);
   end;
end;

И модули. С ними вообще проблема была, кое как нашёл.
jwantstatus.pas
jwawinbase.pas
jwawingdi.pas
jwawinnt.pas
jwawintype.pas
jwawinuser.pas
jwawinwlx.pas

особенно jwawinbase.pas