ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
01.06.2008, 13:55
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
Nitem := 0 to listbox1.items.count do
Nitem := 0 to listbox1.items.count -1 do
|
|
|
01.06.2008, 14:30
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Спасибо!Вот еще один вопрос как из мемо построчно перенести текст в listbox?
|
|
|
|
01.06.2008, 14:38
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
for i := 0 to ListBox1.items.Count-1 do
memo1.lines.add(ListBox1.items[i]);
|
|
|
|
01.06.2008, 14:44
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for I := 0 to listbox1.Items.count - 1 do
memo1.lines.add(ListBox1.items[i]);
end;
делаю так не переносит
Помойму тут наоборот с listbox в memo
Последний раз редактировалось begin_end; 04.06.2008 в 02:38..
Причина: 2 поста - в 1
|
|
|
|
01.06.2008, 15:06
|
|
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
Код:
for i := 0 to Memo1.Lines.Count - 1 do
ListBox1.Items.Add(Memo1.Lines.Strings[i]);
|
|
|
|
01.06.2008, 18:23
|
|
Постоянный
Регистрация: 04.12.2007
Сообщений: 424
Провел на форуме:
2364957
Репутация:
479
|
|
где можно посмотреть таблицу экспорта ntdll.dll в синтаксисе паскаля?
|
|
|
|
01.06.2008, 18:37
|
|
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
Сообщение от ntldr
где можно посмотреть таблицу экспорта ntdll.dll в синтаксисе паскаля?
Теги: ms-rem, NativeApi.pas
---
http://www.wasm.ru/pub/21/files/ring0.rar
|
|
|
|
01.06.2008, 19:23
|
|
Постоянный
Регистрация: 04.12.2007
Сообщений: 424
Провел на форуме:
2364957
Репутация:
479
|
|
и еще вопрос: как вытащить заранее внедренную dll из процесса. Слышал, что нужено в его контексте выполнить FreeLibrary, это так? если так, то можно синтаксис FreeLibrary?
|
|
|
|
01.06.2008, 20:48
|
|
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
Если из своего процесса:
Код:
function KillDll(aDllName: string): Boolean;
var
hDLL: THandle;
aName: array[0..10] of char;
FoundDLL: Boolean;
begin
StrPCopy(aName, aDllName);
FoundDLL := False;
repeat
hDLL := GetModuleHandle(aName);
if hDLL = 0 then
Break;
FoundDLL := True;
FreeLibrary(hDLL);
until False;
end;
Если для чужого, то создавай удаленный поток ..
можно синтаксис FreeLibrary?
http://msdn.microsoft.com/en-us/library/ms683152(VS.85).aspx |
|
|
|
02.06.2008, 12:38
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
Провел на форуме:
1494768
Репутация:
272
|
|
Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:
Код:
program test;
const
text='Не важно';
begin
writeLn(text);
end.
Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.
Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?! |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
