Вниз
Скачать: CL | DM;

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);


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


 
Сергей М. ©   (2008-07-29 20:19) [4]

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

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c
3-1205310393
KPV-10k
2008-03-12 11:26
2008.09.07
Как узнать что запись захвачена другим пользователем (Firebird)


15-1215881130
Guest
2008-07-12 20:45
2008.09.07
В чём ошибка?


15-1215362926
AlexDan
2008-07-06 20:48
2008.09.07
Флешка


3-1204803441
igorm
2008-03-06 14:37
2008.09.07
sql как выбрать наибольшее знач из трех полей табл


15-1216369873
keymaster
2008-07-18 12:31
2008.09.07
Просят сделать БД




   Наверх