프로그램은 이상없이 실행되는데 프로그램을 종료하면 자꾸 에러가 뜨네요..
<!--CodeS-->
function MyThread(P:Pointer):LongInt; StdCall
var i : integer;
begin
for i := 1 to 10000 do
Form1.memo1.Lines.add(inttostr(i));
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
hThread : THandle;
ThreadID : DWORD;
begin
hThread := CreateThread(nil,0,@MyThread,nil,0,ThreadID);
if hThread = 0 then
showmessage('error');
end;
<!--CodeE-->
이렇게 했구요... 델파이 5.0 이구요
프로그램 종료후 에러내용은 아래 이미지와 같습니다.
hThread 대해 ExitThread가 있어야 될것으로 보입니다.
프로그램이 종료 된다고 해서 생성됐던 Thread가
종료 되지는 않을 것으로 보입니다.