Работа с потоками.

[crazygoldbullet]

Работа с потоками.

Хочу научиться работать с потоками на WinApi. Программу компилирую в Лазарусе.

Вот код, который я использую:

uses windows;
procedure ThisIsTheThread1;
begin
	winexec('notepad.exe',sw_show);
end;
var
	ThreadID : dword;
	HThread1 : THandle;
begin
	hThread1 := CreateThread(nil, 0, @ThisIsTheThread1, nil, 0, ThreadID);
	if hThread1 <> Null then
	SetThreadPriority(hThread1, THREAD_PRIORITY_NORMAL);
	CloseHandle(hThread1);
end.

Возникает Runtime error 217:

Но при этом notepad.exe запускается!
А если убрать строчку "if hThread1 <> Null then", то Runtime error не вылетает, но и notepad.exe не запускается.
Помогите устранить ошибку, чтобы всё корректно работало.

[Stilet]

CloseHandle(hThread1);
Зачем делаешь? Убери.

P.S. Создание треады для запуска блокнота в качестве обучения моветон. Лучше в доппотоке проведи какие нить вычисления типа сортировки пузырьком массива.

[crazygoldbullet]

Вот сделал сортировку пузырьком массива, вывод результата в файл.

uses windows;
function IntToStr(Value: integer): string;
begin
	System.Str(Value, result);
end;
procedure ArrayToTxt(a:string);
var
	f:text;
begin
	assign(f,'1.txt');
	append(f);
	writeln(f,a);
	close(f);
end;
procedure ThisIsTheThread1;
var 
	i, j, temp: integer;
	A: array[1..5] of integer;
begin
	randomize;
	For i:=1 to 5 do
		A[i]:=random(9);
	For i:=1 to 5 do
	begin
		For j:=5 downto i do
			if A[j] > A[j+1] then
			begin
				temp := A[j];
				A[j] := A[j+1];
				A[j+1] := temp;
			end;
	end;
	For i:=1 to 5 do
		ArrayToTxt(IntToStr(A[i]));
end;
var
	ThreadID : dword;
	HThread1 : THandle;
begin
	hThread1 := CreateThread(nil, 0, @ThisIsTheThread1, nil, 0, ThreadID);
	if hThread1 <> Null then
	SetThreadPriority(hThread1, THREAD_PRIORITY_NORMAL);
end.

Убрал "CloseHandle(hThread1);", как ты и сказал. Это ничего не изменило Проблема осталась та же + сейчас ещё и результат в файл не выводится. А если без потока вызывать процедуру "ThisIsTheThread1", то всё прекрасно работает. А через поток не получается...

[crazygoldbullet]

UI помог разобраться с проблемой. Правильно действовать нужно было так:

uses windows;
function ThisIsTheThread1(param: Pointer) : integer; stdcall;
begin
    winexec('notepad.exe',sw_show);
    result := 0;
end;
 
var
    ThreadID : dword;
    HThread1 : THandle;
begin
    hThread1 := CreateThread(nil, 0, @ThisIsTheThread1, nil, 0, ThreadID);
    if hThread1 <> 0 then
    begin
		WaitForSingleObject(hThread1, INFINITE); // Дождался завершения выполнения
		CloseHandle(hThread1); // убил поток
    end;
end.

[Stilet]

Дождался завершения выполнения

Уверен? Что-то я не припомню что winexec ожидает завершения процесса...

Это ничего не изменило

Правильно, потому что твой главный поток не дожидаясь завершается. Это ты уже исправил с помошью WaitForSingleObject(). Так что все правильно.
На всякий случай посоветую использовать более надежный TThread, который к тому же еще и кроссплатформенный.

[Somebody]

Сообщение от crazygoldbullet

CloseHandle(hThread1); // убил поток

Закрытие хэндла не убивает поток.

[consthab2]

Думаю этот пример обязательно вам поможет. Статья о проблеме синхронизации потоков на примере простой программы в несколько строк. Код на С++, но используются только API функции.
http://strongcpp.blogspot.ru/2013/04/blog-post.html
Если что-то в примере не поймете - пишите.

[QunneD]

На будущее, вместо WinExec используйте CreateProcess.