HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 172 из 671 « Первая < 72122162 168 169 170 171 172 173 174 175 176 182222272 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 12.06.2008, 10:24
/Boom\
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706

Репутация: 4
По умолчанию
как сделать чтоб логин: пасс брались с memo или listbox (емайлы)
 
Ответить с цитированием

  #2  
Старый 12.06.2008, 12:41
qPhoenix
Banned
Регистрация: 15.12.2005
Сообщений: 95
Провел на форуме:
1509352

Репутация: 132
Отправить сообщение для qPhoenix с помощью ICQ
По умолчанию
Цитата:
Сообщение от /Boom\  
как сделать чтоб логин: пасс брались с memo или listbox (емайлы)

Код:
var s:string;
    n:integer;
begin
 n:=123;
 s:=Memo1.Lines.Strings[n];
 s:=ListBox1.Items.Strings[n];
end;
 
Ответить с цитированием

  #3  
Старый 12.06.2008, 16:45
/Boom\
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706

Репутация: 4
По умолчанию
это такого вида будет loginassword?
idsmtp1.Username:=
idsmtp1.Password:=
как сюда этот код вставить.
Последний раз редактировалось /Boom\; 12.06.2008 в 16:50..
 
Ответить с цитированием

  #4  
Старый 12.06.2008, 17:48
qPhoenix
Banned
Регистрация: 15.12.2005
Сообщений: 95
Провел на форуме:
1509352

Репутация: 132
Отправить сообщение для qPhoenix с помощью ICQ
По умолчанию
Код:
var s:string;
    n:integer;
begin
 n:=123;
 s:=Memo1.Lines.Strings[n];
 s:=ListBox1.Items.Strings[n];

 idsmtp1.Username:=copy(s,1,pos(':',s)-1);
 delete(s,1,pos(':',s));
 idsmtp1.Password:=s;

end;
 
Ответить с цитированием

  #5  
Старый 12.06.2008, 19:34
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101

Репутация: 136
По умолчанию
Также можно юзать TStringList

Код:
var
  List: TStringList;
begin
  List:=TStringList.Create;
  List.LoadFromFile('accounts.txt');
 
Ответить с цитированием

  #6  
Старый 12.06.2008, 21:09
/Boom\
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706

Репутация: 4
По умолчанию
n=123; что это ?
 
Ответить с цитированием

Открытие ярлыка через Delphi
  #7  
Старый 12.06.2008, 22:21
Nick_Rimer
Новичок
Регистрация: 12.05.2008
Сообщений: 19
Провел на форуме:
28051

Репутация: 2
Exclamation Открытие ярлыка через Delphi
суть такова: нужно программно открыть ярлык нажатием на кнопочку. Теперь подробнее:

Путь к ярлыку: C:\Program Files\Borland\Delphi7\Projects\A
Содержимое: файл A.rc, файл brcc32.exe и файл brcc32.exe.lnk

В ярлыке все нужное уже сделано. При его запуске вручную двумя кликами файл A.rc компилируется, и получается ресурс A.res

То же самое необходимо теперь провернуть при помощи Delphi. Сделать такую строку:

Код:
ShellExecute(Handle, 'open', 'brcc32.exe', nil, s, SW_RESTORE);
можно. Работает, но смысл? Его нет..

А такая строка:

Код:
ShellExecute(Handle, 'open', 'brcc32.exe.lnk', nil, s, SW_RESTORE);
также никакого смысла не несет, потому что ярлык не запускается, следовательно ресурс не компилируется!!

При попытке:

Код:
case ShellExecute(Handle, 'open', 'brcc32.exe.lnk', nil, s, SW_RESTORE) of
2: ShowMessage('wrong');
end;
вылезает то самое сообщение 'wrong'..

кстати, s - это путь к папке типа PAnsiChar

Как же мне сделать так, чтобы я смог провернуть необходимую мне операцию??? Помогите, пожалуйста, очень прошу.. уже исчерпал все, что знал.. А надо!! Мне это строить и жить помогает!
 
Ответить с цитированием

  #8  
Старый 12.06.2008, 23:39
t04
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020

Репутация: 105
По умолчанию
дабавь в раздел uses
Код:
uses
  ShellAPI;
юзай так
Код:
ShellExecute(0, 'open' ,PChar(cmd), nil, nil, SW_SHOWNORMAL);
где cmd это имя файла который надо открыть.
Последний раз редактировалось t04; 12.06.2008 в 23:43..
 
Ответить с цитированием

  #9  
Старый 13.06.2008, 10:17
Nick_Rimer
Новичок
Регистрация: 12.05.2008
Сообщений: 19
Провел на форуме:
28051

Репутация: 2
По умолчанию
для t04:

ну и что ты мне написал?.. я и так знаю, как юзается ShellExecute (я же это вполне подробно описал), и что нужно подкдлючить в uses. Программа ошибок не выдает, только вот brcc32.exe запустить я могу, а brcc32.exe.lnk - нет, а НАДО!!!
 
Ответить с цитированием

  #10  
Старый 13.06.2008, 10:44
SNAIPER ShoT
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842

Репутация: 5
Отправить сообщение для SNAIPER ShoT с помощью ICQ
По умолчанию
Глупый вопрос задаю... Но как сделать на делфи лоадер библиотеке dll ??
Напишите код пожайлуста =)
 
Ответить с цитированием
Ответ
Страница 172 из 671 « Первая < 72122162 168 169 170 171 172 173 174 175 176 182222272 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2568 25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ