ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
03.04.2010, 21:10
|
|
Познающий
Регистрация: 01.05.2009
Сообщений: 40
Провел на форуме:
333392
Репутация:
3
|
|
А как сделать чтобы при нажатии на кнопку результат запысывался в строку состояния?
|
|
|
03.04.2010, 21:18
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Результат чего? = )
Если ты про статус бар то
StatusBar1.SimpleText := 'Результат';
|
|
|
|
03.04.2010, 22:15
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Как в делфи приложении вывести страничку сайта?
|
|
|
|
03.04.2010, 22:19
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Положить на форму TWebBrowser.
Свойство Silent лучше поставить в true
WebBrowser.Navigate(URL);
|
|
|
|
03.04.2010, 22:20
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Сообщение от winlogon.exe
Как в делфи приложении вывести страничку сайта?
Компонент TWebBrowser.
|
|
|
|
03.04.2010, 23:14
|
|
Новичок
Регистрация: 20.11.2009
Сообщений: 25
Провел на форуме:
492211
Репутация:
84
|
|
Плиз нужен совет.
Нужно вывести мыло:пароль
существуют строки:
1. Пароль
try
Fil.LoadFromFile('password1.txt');
Fil.LoadFromFile('password2.txt');
except
Showmessage('Файл не найден');
end;
Temp:=fil.strings[random (fil.count-1)];
Data.add ('user.password1='+temp);
Data.add ('user.password2='+temp);
2. Логин (от мыла , до @)
Data.Add('user.login='+fil.strings[random(fil.count-1)]);
Как мне то что получилось после реги, то есть мыло:пароль вывести в мемо ?
Memo1.Lines.Add(''); - что в скобках писать ? или как то строки можно вписать, то есть их номера.
Спасибо заранее!
|
|
|
|
03.04.2010, 23:48
|
|
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме:
817404
Репутация:
82
|
|
как сделать какоето действие с каждой строкой из текстовика
дайте примерчик хороший плиз)
|
|
|
|
04.04.2010, 00:05
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Как отследить нажатие горячих клавишь?
Например, если нажата комбинация alt f4, тогда вылазиет мессаджбокс с каким то текстом.
ps Пример нужен для winapi.
|
|
|
|
04.04.2010, 00:56
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от Vlad&slav
как сделать какоето действие с каждой строкой из текстовика
дайте примерчик хороший плиз)
Код:
var textFile: TStringList;
i: integer;
begin
textFile:=TStringList.Create;
textFile.LoadFromFile('Путь_К_текстовику');
for i:=0 to textFile.Count - 1 do begin
//здесь что-то делаем, обращаясь к конкретной строке как textFile[i]
end;
end;
end.
легко...
Как отследить нажатие горячих клавишь?
Например, если нажата комбинация alt f4, тогда вылазиет мессаджбокс с каким то текстом.
ps Пример нужен для winapi.
http://www.cyberguru.ru/delphi-sources/keyboard/perekhvat-hook-klaviatury-programma-sendkeys.html
|
|
|
|
04.04.2010, 00:59
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от TENMAX
Плиз нужен совет.
Нужно вывести мыло:пароль
существуют строки:
1. Пароль
try
Fil.LoadFromFile('password1.txt');
Fil.LoadFromFile('password2.txt');
except
Showmessage('Файл не найден');
end;
Temp:=fil.strings[random (fil.count-1)];
Data.add ('user.password1='+temp);
Data.add ('user.password2='+temp);
2. Логин (от мыла , до @)
Data.Add('user.login='+fil.strings[random(fil.count-1)]);
Как мне то что получилось после реги, то есть мыло:пароль вывести в мемо ?
Memo1.Lines.Add(''); - что в скобках писать ? или как то строки можно вписать, то есть их номера.
Спасибо заранее!
непонятный текст... выложи исходник
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
