у меня 2 вопроса 1) как отключить в делфи учетные записи пользователей и создать новую учетку с паролем..... 2)как сделать поле для ввода пароля в программе??? чтоб вместо введенных символов отображались звездочки ??? подскажыте как такое сделать .....спс))))
Там в опциях эдита есть PasswordChar, поствь там звезду или еще че и будет тебе поле для ввода пароля.
помогите ешо с етим вопросом.. 1) как отключить в делфи учетные записи пользователей и создать новую учетку с паролем.....
Через консоль "net user" C:\Documents and Settings\*>net user /help Синтаксис данной команды: NET USER [имя_пользователя [пароль | *] [параметры]] [/DOMAIN] имя_пользователя {пароль | *} /ADD [параметры] [/DOMAIN] имя_пользователя [/DELETE] [/DOMAIN] NET USER - эта команда создает и изменяет учетные записи пользователей на компьютере. Kогда используется без параметров, выводит список учетных записей пользователей для данного компьютера. Информация об учетных записях пользователей хранится в базе данных учетных записей. Эта команда используется только на серверах. имя_пользователя Задает имя пользователя, которое необходимо добавить, удалить, изменить или вывести на экран. Длина имени пользователя не должна превосходить 20 знаков. пароль Назначает или изменяет пароль для учетной записи пользователя. Пароль должен отвечать установленным требованиям на длину - быть не короче, чем значение, установленное параметром /MINPWLEN в команде NET ACCOUNTS, и в то же время не длиннее 14 знаков. * Вызывает открытие специальной строки ввода пароля. Пароль не выводится на экран во время его ввода в этой строке. /DOMAIN Выполняет операцию на контроллере домена в текущем домене. /ADD Добавляет учетную запись пользователя в базу данных учетных записей. /DELETE Удаляет учетную запись пользователя из базы данных учетных записей. Параметры Допустимые параметры перечислены в следующем списке: Параметр Описание -------------------------------------------------------------------- /ACTIVE:{YES | NO} Активизирует учетную запись или делает ее не активной. Если учетная запись не активна, пользователь не может получить доступ к серверу. По умолчанию используется значение YES (т.е. учетная запись активна). /COMMENT:"текст" Добавляет описательный комментарий об учетной записи (длиной не более 48 знаков). Текст должен быть заключен в кавычки. /COUNTRYCODE:nnn Использует кодовую страницу нужного языка для вывода справки и сообщений об ошибках. Значение 0 означает выбор кодовой страницы по умолчанию. /EXPIRES:{дата | NEVER} Устанавливает дату истечения срока действия ученой записи. Если используется значение NEVER, то время действия учетной записи не имеет ограничений срока действия. Дата истечения срока действия задается в формате дд/мм/гг или мм/дд/гг, в зависимости от того, какая кодовая страница используется. Месяц может быть указан цифрами, названием месяца или трехбуквенным его сокращением. В качестве разделителя полей должен использоваться знак косой черты (/). /FULLNAME:"имя" Указывает настоящее имя пользователя (а не кодовое имя, заданное параметром имя_пользователя). Настоящее имя следует заключить в кавычки. /HOMEDIR:путь Указывает путь к домашнему каталогу пользователя. Этот каталог должен существовать. /PASSWORDCHG:{YES | NO} Определяет, может ли пользователь изменять свой пароль. По умолчанию используется значение YES (т.е. изменение пароля разрешено). /PASSWORDREQ:{YES | NO} Определяет, является ли указание пароля обязательным. По умолчанию используется значение YES (т.е. пароль обязателен). /PROFILEPATH[:путь] Устанавливает путь к профилю пользователя. /SCRIPTPATH:путь Устанавливает расположение пользовательского сценария для входа в систему. /TIMES:{промежуток | ALL} Устанавливает промежуток времени, во время которого пользователю разрешен вход в систему. Этот параметр задается в следующем формате: день[-день][,день[-день]],время[-время][,время[-время]] Время указывается с точностью до одного часа. Дни являются днями недели и могут указываться как в полном, так и в сокращенном виде. Время можно указывать в 12- и 24-часовом формате. Если используется 12-часовой формат, то можно использовать am, pm, a.m. или p.m. Значение ALL указывает, что пользователь может войти в систему в любое время, а пустое значение указывает, что пользователь не может войти в систему никогда. Разделителем полей указания дней недели и времени является запятая, разделителем при использовании нескольких частей является точка с запятой. /USERCOMMENT:"текст" Позволяет администратору добавлять или изменять текст комментария к учетной записи. /WORKSTATIONS:{имя_компьютера[,...] | *} Перечисляет до восьми различных компьютеров, с которых пользователь может войти в сеть. Если данный параметр имеет пустой список или указано значение *, пользователь может войти в сеть с любого компьютера. NET HELP имя_команды | MORE - просмотр справки по одному экрану за раз. Надеюсь тебе не надо разжовывать как пользоваться winexec или shellexecute?
Доброго времени суток, народ. Подскажите пожалуйста, как реализовать в Delphi запись в фаил, с учетом того, что в программе я сам укажу путь к файлу ( файл не *.txt ). Порылся в гугле, но оттуда для себя ничего подчеркнуть к сожалению не смог=(
можно использовать WriteLn если приложение консольное например, или SaveDilog сохраняя из мемо например.
Code: var myFile : TextFile; text : string; begin // Попытка открыть файл Test.txt для записи AssignFile(myFile, 'Test.txt'); ReWrite(myFile); // Запись нескольких известных слов в этом файл WriteLn(myFile, 'Hello World'); // Запись пустой строки WriteLn(myFile); // Запись строки и числа в файл WriteLn(myFile, '22/7 = ' , 22/7); // Повторение вышеупомянутого, но с форматированием числа WriteLn(myFile, '22/7 = ' , 22/7:12:6); // Закрытие файла CloseFile(myFile); // Повторное открытие файла для чтения Reset(myFile); // Показ содержимого файла while not Eof(myFile) do begin ReadLn(myFile, text); ShowMessage(text); end; // Закрытие файла в последний раз CloseFile(myFile); end; чего так сложно в гугле посмотреть чтоли, ведь все есть.
А какой? бинарный хмлка или что? Твой вопрос напоминает этот: Я человек но не негр... Не правда ли можно придумать много ответов?
Побайтная запись в файл) Code: procedure TForm1.FormCreate(Sender: TObject); var MyFile:file of byte; a,b:byte; begin AssignFile(MyFile, 'C:\Test.txt'); ReWrite(myFile); a:=66; b:=67; write(myfile,a); write(myfile,b); CloseFile(myFile); FileMode := fmOpenRead; Reset(myFile); while not Eof(myFile) do begin Read(myFile, a); ShowMessage(IntToStr(a)); end; CloseFile(myFile); end; зы: он же текстовый?!?!
Отправляю пост запрос через Winsock Примерно так: Code: Postdata := 'POST...' len:=send_packs(host,StrToInt('80'),AnsiToUTF8(postdata),ret); Все уходит, но если в Postdata добавить рус буквы, то сервер дает ошибку 400, значит что AnsiToUTF8(); Не переделывает Ansi в уникод.... Как это можно исправить?
Народ помогите! пытаюсь через программу проголосовать на ла2топе....куки забрал а вот как получить капчу? я делал воттак: PHP: procedure TForm1.Button1Click(Sender: TObject); var Http : TidHttp; CM : TidCookieManager; Data : TStringList; Strpage :string; Strpagse :string; UserID, UserName : String; e,f,r : integer; sd,cooks : string; streamresponse:TMemoryStream; begin Http := TIdHTTP.Create(Self); Data := TStringList.Create; CM := TidCookieManager.Create(Http); Http.AllowCookies := true; Http.CookieManager := CM; Http.HandleRedirects := false; Http.Request.Host:='l2top.ru'; Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10'; Http.Request.Accept:='image/png,image/*;q=0.8,*/*;q=0.5'; Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3'; http.Request.AcceptEncoding:='gzip,deflate'; http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7'; http.Request.Referer:='http://l2top.ru/vote/1303/'; http.Request.CustomHeaders.Text:='Cookie:' +memo3.Text; e:=pos('/getimg.php',memo1.Text); cooks:=copy(memo1.Text,e,17); memo2.Lines.Add(cooks); sd:=memo2.Text; f:=pos('?',memo2.Text); sd:=copy(memo2.Text,f,4); memo2.Text:=''; memo2.Lines.Add(sd); streamresponse:=TMemoryStream.Create; idhttp1.Get('http://l2top.ru/vote/1303/getimg.php'+memo2.Text,streamresponse); streamresponse.SaveToFile('C:\reserv1.jpeg'); form1.Image1.Picture.LoadFromFile('C:\reserv1.jpeg'); DeleteFile('С:\reserv1.jpeg'); end; в Memo3 - у меня куки а в memo2 - ссылка на капчу она каждый раз меняется по етому её приходится брать из кода странички... когда нажимаю на кнопку выдаёт ошибку <HTTP> что я нетак сделал?
Помогите советом,я недавно начал изучения Паскаля и вот такой вопрос:я читал про идентификаторы и не очень понял:идентификатором может быть любое,так сказать "слово" или это зависит от программы которую пишут?
