[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 169 из 677

169

Опции темы

Поиск в этой теме

Опции просмотра

#1681

01.06.2008, 13:55

Hellsp@wn

Постоянный

Регистрация: 29.04.2007

Сообщений: 496

С нами: 10018466

Репутация: 588

Цитата:

Nitem := 0 to listbox1.items.count do

Nitem := 0 to listbox1.items.count-1 do

#1682

01.06.2008, 14:30

$Аватар для /Boom\$

/Boom\

Познающий

Регистрация: 14.02.2008

Сообщений: 62

С нами: 9599589

Репутация: 4

Спасибо!Вот еще один вопрос как из мемо построчно перенести текст в listbox?

#1683

01.06.2008, 14:38

t04

Участник форума

Регистрация: 10.01.2007

Сообщений: 140

С нами: 10175096

Репутация: 105

for i := 0 to ListBox1.items.Count-1 do

memo1.lines.add(ListBox1.items[i]);

#1684

01.06.2008, 14:44

$Аватар для /Boom\$

/Boom\

Познающий

Регистрация: 14.02.2008

Сообщений: 62

С нами: 9599589

Репутация: 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

#1685

01.06.2008, 15:06

BlackSun

Познавший АНТИЧАТ

Регистрация: 01.04.2007

Сообщений: 1,268

С нами: 10058786

Репутация: 4589

Цитата:

в listbox

Код:

  for i := 0 to Memo1.Lines.Count - 1 do
    ListBox1.Items.Add(Memo1.Lines.Strings[i]);

#1686

01.06.2008, 18:23

ntldr

Постоянный

Регистрация: 04.12.2007

Сообщений: 424

С нами: 9702986

Репутация: 479

где можно посмотреть таблицу экспорта ntdll.dll в синтаксисе паскаля?

#1687

01.06.2008, 18:37

BlackSun

Познавший АНТИЧАТ

Регистрация: 01.04.2007

Сообщений: 1,268

С нами: 10058786

Репутация: 4589

Цитата:

Сообщение от ntldr

где можно посмотреть таблицу экспорта ntdll.dll в синтаксисе паскаля?

Теги: ms-rem, NativeApi.pas
---
http://www.wasm.ru/pub/21/files/ring0.rar

#1688

01.06.2008, 19:23

ntldr

Постоянный

Регистрация: 04.12.2007

Сообщений: 424

С нами: 9702986

Репутация: 479

и еще вопрос: как вытащить заранее внедренную dll из процесса. Слышал, что нужено в его контексте выполнить FreeLibrary, это так? если так, то можно синтаксис FreeLibrary?

#1689

01.06.2008, 20:48

BlackSun

Познавший АНТИЧАТ

Регистрация: 01.04.2007

Сообщений: 1,268

С нами: 10058786

Репутация: 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

#1690

02.06.2008, 12:38

Andres

Постоянный

Регистрация: 04.04.2008

Сообщений: 527

С нами: 9526747

Репутация: 272

Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:

Код:

program test;
const
   text='Не важно';
begin
   writeLn(text);
end.

Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.

Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?!

Страница 169 из 677

169

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

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

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