Как запустить вирт. клавиатуру в Win7, 8 и 10?

[McLion]

Как выяснилось (когда я добрался до винды ) запустить виртуальную клавиатуру может каждый, а закрыть её (принудительно) - только администратор компьютера.

У меня и админ ее закрыть не может, а только в сторону спрятать.

[Vadim]

McLion
Локальный администратор, не доменный.

[McLion]

McLion
Локальный администратор, не доменный.

Да локальный конечно!

[Лекс Айрин]

разгребусь с работой буду пробовать запускать от админа... похоже, от батника не отвертеться((

[Vadim]

McLion
С ключом /F точно убивается. Я проверил.

[McLion]

Не охота мучить вас уже, но с "/F" вообще ничего не происходит. Если что не напрягайтесь из-за меня сильно.

[Vadim]

McLion
Клянусь своей треуголкой! Тысячу каракатиц мне в печёнку! Вот эта конструкция:

Код: Выделить всё

runas /user:Название_Моего_Компьютера\Администратор "taskkill /F /IM tabtip.exe"

убивает эту штуку навсегда. По крайней мере из списка задач она исчезает.

[Лекс Айрин]

Vadim осталось определить название компьютера

[Vadim]

осталось определить название компьютера

Ну есть же там всякие GetComputerName и прочие, ещё более забористые штуки...

[McLion]

McLion
Клянусь своей треуголкой! Тысячу каракатиц мне в печёнку! Вот эта конструкция:

Код: Выделить всё

runas /user:Название_Моего_Компьютера\Администратор "taskkill /F /IM tabtip.exe"

убивает эту штуку навсегда. По крайней мере из списка задач она исчезает.

Так это из batch-Файла или как? Покажи весь код.

[Vadim]

...это из batch-Файла...

Из него, родного. Это и есть весь код. Если делать программный код, то без функции CreateProcessWithLogonW не обойтись, так как надо запускать taskkill от имени администратора, а не текущего пользователя.

[McLion]

А как .bat-файл стартануть?

[Vadim]

McLion
Из ОС или своей программы?

[Лекс Айрин]

Vadim, из проги конечно. Попытался я собрать эту строчку , но не получилось.

Добавлено спустя 33 секунды:
McLion а стартануть точно так же как и экзешник.

[Vadim]

Код: Выделить всё

Function RunAs(prog, user, pass: string): boolean;
Var
  progaW, userW, passW: PWideChar;
  patha: string;
  pathW: PWideChar;
  size: Integer;
  si: TSTARTUPINFO;
  pif: PROCESS_INFORMATION;

Begin
  ZeroMemory(@si, sizeof(STARTUPINFO));
  si.cb := SizeOf(tstartupinfo);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOWDEFAULT;
  si.lpReserved := nil;
  si.lpDesktop := nil;
  si.lpTitle := nil;

  pathA:=ExtractFileDir(ParamStr(0))+#0;
  size:=Length(patha)*SizeOf(WideChar);
  GetMem(pathW, size);
  StringToWideChar(pathA, pathW, size);
 
  prog:=prog+#0;
  size:=Length(prog)*SizeOf(WideChar);
  GetMem(progaW, size);
  StringToWideChar(prog, progaW, size);

  user:=user+#0;
  size:=Length(user)*SizeOf(WideChar);
  GetMem(userW, size);
  StringToWideChar(user, userW, size);

  pass:=pass+#0;
  size:=Length(pass)*SizeOf(WideChar);
  GetMem(passW, size);
  StringToWideChar(pass, passW, size);

  Result:=CreateProcessWithLogonW(userW,
                          'knb',
                          passW,
                          2,
                          NIL,
                          progaW,
                          CREATE_UNICODE_ENVIRONMENT,
                          nil,
                          pathW,
                          si,
                          pif);

  CloseHandle(pif.hProcess);
  CloseHandle(pif.hThread);
  FreeMem(pathW);
  FreeMem(progaW);
  FreeMem(userW);
  FreeMem(passW);
End;