| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
2 просесса в одном приложении [NT4, Win2k, WinXP]
Vikindos © (2008-07-29 19:02:00)Доброго здоровья.
В моём консольном приложении, я создаю процесс
CreateThread(nil,0,@HandlerTreadProc,Pointer(accept(l_s, @Name, @Size)),0,h1);
procedure HandlerTreadProc(pParam:pointer) stdcall;
А затем, мне надо, что бы и
Function MyProc(nCode: LongInt; wParam, lParam: LongInt): LongInt stdcall;
Выполнялась.. как-то так, что бы они были не зависимы в моём консольном приложении, а то CreateThread активируется и не даёт загрузить Function MyProc или на оборот.
Помогите, не хочется создавать 2 приложения.
Сергей М. (2008-07-29 20:19:00) [1]Мама дорогая !
Ео спрашивают "с каких пор", а он как гнул свое, так и гнет..
Есть ли редел тупости ?
Vikindos (2008-07-29 19:19:00) [2]
// Запуск первого выполнения потока, спрошивающего имя пользователя
thread1 := BeginThread(nil,
0,
Addr(ShowMsg),
Addr(msg1),
0,
id1);
// И также спрашиваем фамилию
thread2 := BeginThread(nil,
0,
Addr(ShowMsg),
Addr(msg2),
0,
id2);
начинаю понимать
Vikindos (2008-07-29 19:12:00) [3]я сделаю так
while true do
begin
CreateThread(nil,0,@HandlerTreadProc,Pointer(accept(l_s, @Name, @Size)),0,h1);
writeln('как дальше вызывать? @HandlerTreadProc повис и дальше не дает идти моему writeln');
end;
Eraser (2008-07-29 19:07:00) [4]> [0] Vikindos © (29.07.08 19:02)
с каких это пор Thread стал процессом? это поток или нить, обычно так переводят, но точно не процесс )
> CreateThread
BeginThread
> А затем, мне надо, что бы и
>
> Function MyProc(nCode: LongInt; wParam, lParam: LongInt)
> : LongInt stdcall;
>
> Выполнялась..
ну так вызывай её - выполнится... независимо от той, которая выполняется в новом потоке.
| |
