Вниз
Скачать: 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
2-1217326915
wsv
2008-07-29 14:21
2008.09.07
ADOConnection и его ConnectionTimeout


2-1217323341
Cobalt
2008-07-29 13:22
2008.09.07
AV при работе с TStringList


6-1192887384
random(1042)
2007-10-20 17:36
2008.09.07
Автоматический IP или ручной?


3-1205405023
Eero
2008-03-13 13:43
2008.09.07
Можно ли перерисовать 0 столбец в TDBGridEH?


3-1205271880
GanibalLector
2008-03-12 00:44
2008.09.07
backup/restore Firebird




   Наверх