2 просесса в одном приложении

← →
Vikindos © (2008-07-29 19:02) [0]

Доброго здоровья.

В моём консольном приложении, я создаю процесс

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 приложения.

← →
Eraser © (2008-07-29 19:07) [1]

> [0] Vikindos © (29.07.08 19:02)

с каких это пор Thread стал процессом? это поток или нить, обычно так переводят, но точно не процесс )

> CreateThread

BeginThread

> А затем, мне надо, что бы и
>
> Function MyProc(nCode: LongInt; wParam, lParam: LongInt)
> : LongInt stdcall;
>
> Выполнялась..

ну так вызывай её - выполнится... независимо от той, которая выполняется в новом потоке.

← →
Vikindos © (2008-07-29 19:12) [2]

я сделаю так

while true do
begin
CreateThread(nil,0,@HandlerTreadProc,Pointer(accept(l_s, @Name, @Size)),0,h1);
writeln("как дальше вызывать? @HandlerTreadProc повис и дальше не дает идти моему writeln");
end;

← →
Vikindos © (2008-07-29 19:19) [3]

// Запуск первого выполнения потока, спрошивающего имя пользователя thread1 := BeginThread(nil, 0, Addr(ShowMsg), Addr(msg1), 0, id1); // И также спрашиваем фамилию thread2 := BeginThread(nil, 0, Addr(ShowMsg), Addr(msg2), 0, id2);

начинаю понимать

Мама дорогая !

Ео спрашивают "с каких пор", а он как гнул свое, так и гнет..

Есть ли редел тупости ?

2 просесса в одном приложении Найти похожие ветки