Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.06.2008, 03:00   #11
SkyM@n
Laravel/Vue expert
Старожил Подтвердите свой е-майл
 
Аватар для SkyM@n
 
Регистрация: 08.08.2007
Сообщений: 2,832
По умолчанию

Цитата:
Сообщение от Air Посмотреть сообщение
но вводить пароль с клавы нельзя (другие пользователи могут спалить), поэтому мне нужно программно ввести пароль.
А конструкция типа shell "runas /user:Admin /passowrd:pass program.exe" чем не угодила?
SkyM@n вне форума Ответить с цитированием
Старый 17.06.2008, 03:05   #12
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Только что проверил.
1 - /passowrd - такого параметра нет.
2 - всё равно запрашивает пароль.
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 17.06.2008, 03:13   #13
SkyM@n
Laravel/Vue expert
Старожил Подтвердите свой е-майл
 
Аватар для SkyM@n
 
Регистрация: 08.08.2007
Сообщений: 2,832
По умолчанию

Цитата:
Сообщение от Air Посмотреть сообщение
Только что проверил.
1 - /passowrd - такого параметра нет.
2 - всё равно запрашивает пароль.
Действительно, прошу прощения. Тогда очень хорошо подойдет утилитка из комплекта PsTools
В хозяйстве хорошего сисадмина должна быть обязательно.
SkyM@n вне форума Ответить с цитированием
Старый 17.06.2008, 03:21   #14
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

SkyM@n
Я оценил, в среду проверю.
Благодарю за информацию.
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 17.06.2008, 03:31   #15
SkyM@n
Laravel/Vue expert
Старожил Подтвердите свой е-майл
 
Аватар для SkyM@n
 
Регистрация: 08.08.2007
Сообщений: 2,832
По умолчанию

Цитата:
Сообщение от Air Посмотреть сообщение
SkyM@n
Я оценил, в среду проверю.
Благодарю за информацию.
Да незачто. =)
Запускать можно и на удаленной машине с локальной.
Кстати, запуск учитывая пароль таков:
Код:
psexec \\director -u Air -p godmode myprogram.exe
А если еще указать параметр -f, то данная утилитка сама скопирует локальный файл, который требуется запустить на удаленную машину и тогда запустит.
Удачи с экспериментами и желаю жить легче с такими ценными инструментами
SkyM@n вне форума Ответить с цитированием
Старый 17.06.2008, 03:35   #16
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Кажется я в тупике, не пойму почему переменные q,w,e,r принимают значения последнего (r) ?

Код:
function StrToPWideChar(Str: String): PWideChar;
var
 TmpStr: WideString;
 Temp: PWideChar;
Begin
  TmpStr := Str;
  Temp := PWideChar(TmpStr);
  Result := Temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var U,D,P,Pr:string; q:PWideChar; w,e,r:PWideChar;
begin
U:='Администратор';
D:='Wiktor';
P:='222';
Pr:='c:\123.exe';

q:=StrToPWideChar(U);
w:=StrToPWideChar(D);
e:=StrToPWideChar(P);
r:=StrToPWideChar(Pr);
end;
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 17.06.2008, 03:40   #17
SkyM@n
Laravel/Vue expert
Старожил Подтвердите свой е-майл
 
Аватар для SkyM@n
 
Регистрация: 08.08.2007
Сообщений: 2,832
По умолчанию

Потому что там два символа. Воспринимается только первый.
SkyM@n вне форума Ответить с цитированием
Старый 17.06.2008, 03:41   #18
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

И как же тогда String конвертировать PWideChar?
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 17.06.2008, 03:59   #19
SkyM@n
Laravel/Vue expert
Старожил Подтвердите свой е-майл
 
Аватар для SkyM@n
 
Регистрация: 08.08.2007
Сообщений: 2,832
По умолчанию

А зачем конвертировать?
SkyM@n вне форума Ответить с цитированием
Старый 17.06.2008, 20:49   #20
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Всё поэтапно.

1 - http://www.programmersforum.ru/showp...2&postcount=10
2 - строка 19
3 - имя пользователя, домен и пароль написаны от руки, а надо через переменные, ведь пользователей, доменов и паролей много и хранятся в проге. (хотя пароли лучше хранить в БД - им свойственно изменяться...)
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Эмуляция нажатия нескольких клавиш -=Shad0www Общие вопросы Delphi 3 12.05.2008 08:13
Имитация нажатия комбинации клавиш Zeraim Win Api 15 05.05.2008 20:35
Как заставить программу реагтровать на нажатия клавиш? AngelOfDeath Общие вопросы Delphi 9 07.04.2008 23:58
Проверка нажатия клавиш в компоненте Мемо|Delphi GAGARIN-NEW Помощь студентам 4 09.12.2007 19:59
программа по эмуляции нажатия клавиш sr_lexx Win Api 3 03.12.2007 15:40