Форум: "Прочее";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Вниз
SelectDirectory и новые нити в проекте Найти похожие ветки
← →
learner © (2006-10-12 02:22) [0]Здравствуйте !
А почему после вызова ( и закрытия ) SelectDirectory
к процессу добавляются две новые нити ?
Правда, одна из них, со временем, исчезает, но другая
так и висит. Как то мне это не нравится :))
У меня количество нитей не резиновое :))
← →
Германн © (2006-10-12 02:28) [1]
> learner © (12.10.06 02:22)
>
> Здравствуйте !
> А почему после вызова ( и закрытия ) SelectDirectory
> к процессу добавляются две новые нити ?
> Правда, одна из них, со временем, исчезает, но другая
> так и висит. Как то мне это не нравится :))
> У меня количество нитей не резиновое :))
>
А как ты это определил?
← →
learner © (2006-10-12 02:43) [2]>А как ты это определил?
Баловалась с NtQuerySystemInformation и случайно обратила внимание.
Потом уже и в TaskMgr посмотрела: тоже самое :((
← →
Германн © (2006-10-12 03:03) [3]Что-то где-то как-то это мне напомнило из недавнешнего :-)
← →
guav © (2006-10-12 13:37) [4]Это - результат того, что задана COINIT_MULTITHREADED модель в CoInitializeEx.
Можно забить на это. Повторный вызов SelectDirectory не приводит к бесконечному росту числа потоков.
← →
guav © (2006-10-12 13:38) [5]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses FileCtrl, ComObj,ActiveX;
var S: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
SelectDirectory("", "", S);
end;
initialization
// ComObj.CoInitFlags := COINIT_MULTITHREADED;
// ^^ раскоментируй чтобы увидить рост числа потоков.
end.
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
