Вниз
Скачать: 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.009 c
15-1216177180
Kostya_berlin
2008-07-16 06:59
2008.09.07
подскажите пожалуйста какой оператор


15-1216189504
Гость
2008-07-16 10:25
2008.09.07
Replace all


15-1216364300
shlst
2008-07-18 10:58
2008.09.07
Касперски против Intel!


15-1216091674
КросавЧЕГ
2008-07-15 07:14
2008.09.07
Помогите оптимизировать


1-1198096706
Дмитрий
2007-12-19 23:38
2008.09.07
Аналог перловской функции crypt в Delphi




   Наверх