 |
|
24.12.2009, 20:17
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
С нами:
8947056
Репутация:
229
|
|
Как завершить поток созданный CreateThread?
Гуглил -> не нашел
|
|
|
24.12.2009, 20:21
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
С нами:
9399214
Репутация:
52
|
|
Сообщение от wolmer
Как завершить поток созданный CreateThread?
Гуглил -> не нашел
TerminateThread(<Хендл потока>,<Код завершения обычно 0>)
вот ссыль на мсдн http://msdn.microsoft.com/en-us/library/ms686717(VS.85).aspx
Последний раз редактировалось transserg; 24.12.2009 в 20:25..
|
|
|
|
24.12.2009, 20:33
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
С нами:
8947056
Репутация:
229
|
|
TerminateThread(<Хендл потока>,<Код завершения обычно 0>)
вот ссыль на мсдн http://msdn.microsoft.com/en-us/library/ms686717(VS.85).aspx
Что то не работает, можно маленький пример с TerminateThread? (скорее всего что-то не так делаю)
|
|
|
|
24.12.2009, 20:36
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
С нами:
9399214
Репутация:
52
|
|
а что ты в нее передаешь? то что вернула CreateThread или ThredID это полсдений параметр CreateThread. нужно передавать Хендл потока то что вернет CreateThread или OpenThread
Вот пример
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hThrad:THAndle;
implementation
{$R *.dfm}
Function Thead(P:Pointer):LongInt;
var
i:Integer;
begin
i:=0;
while True do
begin
Form1.Memo1.Lines.Add(IntToStr(i));
Inc(i);
Sleep(1000)
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
thr:Cardinal;
begin
hThrad:=createthread(nil,0,@Thead,nil,0,thr);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TerminateThread(hThrad,0);
end;
end.
Последний раз редактировалось transserg; 24.12.2009 в 20:45..
|
|
|
|
24.12.2009, 23:08
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
С нами:
9273261
Репутация:
8
|
|
Сообщение от Vasek13
Помогите с задачкой
Вводить числа с клавиатуры пока их не станет больше пяти и не попадётся число 100
Вот написал но что то ошибку пишет
Program x3;
VAR
integer:x,i;
Begin
i:=0;
while( i>=5) and (x=100) do
begin
readln(x);
inc(i);
end;
end.
В чем ошибка подскажите плз
переменная x<>100 . не равна . а то у тебя получается в цикл входит только тогда х=100, а у тебя должен выходить когда x=100.
вот собственно и всё.
|
|
|
|
24.12.2009, 23:22
|
|
Познающий
Регистрация: 31.03.2009
Сообщений: 53
С нами:
9007085
Репутация:
11
|
|
Как сделать в дельфи чтоб текст в Label выводился не сразу, а через какой-нибудь промежуток времени? Пример плиз приведите ))
|
|
|
|
24.12.2009, 23:36
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
С нами:
9201836
Репутация:
6
|
|
Сообщение от Fireblade
Как сделать в дельфи чтоб текст в Label выводился не сразу, а через какой-нибудь промежуток времени? Пример плиз приведите ))
процедура sleep(....),где указывается время задержки в милисек.,в данном примере задержка на 1 сек
procedure TForm1.Button1Click(Sender: TObject);
begin
sleep(1000);
label1.Caption:='xaxaxa';
end;
|
|
|
|
24.12.2009, 23:47
|
|
Познающий
Регистрация: 31.03.2009
Сообщений: 53
С нами:
9007085
Репутация:
11
|
|
DimkO, спасибо!!
|
|
|
|
25.12.2009, 12:58
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Всем доброго времени суток!
Подскажите как спрятать программку с панели задач, но чтобы форма была видна.
По такому принципу работают виджеты.
Заранее спасибо!
P.S Так пробовал но не полочилось _http://delphi-faq.zoxt.net/143.htm
Последний раз редактировалось iGlass; 25.12.2009 в 13:03..
|
|
|
|
25.12.2009, 13:08
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами:
8634231
Репутация:
24
|
|
Сообщение от iGlass
Подскажите как спрятать программку с панели задач, но чтобы форма была видна.
FormOnShow
Код:
ShowWindow(Application.Handle, sw_Hide);
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
