Delphi :
1. , createthread.
2. TThread .
, , , . .
TThread
, , . , . . ' , ', , . TThread, , " ".
Delphi Create, .
{...................}
constructor Create (CreateSuspennded: Boolean; MyVar: Integer); override;
{...................}
(CreateSuspennded TThread, .)
, , - . , , ', pointer, . ( ), . " ", "" , . :
{...................}
var
list1, list2: tstrings;
begin
list1: = TStringList.Create; / /
pointer (list2): = pointer (list1); / / 2 1
list2.Add ('Hello World!'); / / -
ShowMessage (list1.strings [0]); / / , - )
list2.destroy; / / , ,
end;
{...................}
. pointer, . , Execute. . Execute , , "" . , , Resume . Suspend. "", Resume.
|
|
, . , TThread, :
constructor Create (CreateSuspennded: Boolean);
CreateSuspennded , , . . , FreeOnTerminate: Boolean , , ', .
, 쳺. ? , , , " '". ( ) .
- , , Synchronize (AMethod: TThreadMethod), . AMethod TThread . "" , ' TThread , Synchronize. , , , . ϳ , Synchronize .
. , - :
function TerminateThread (hThread: THandle; dwExitCode: DWORD): BOOL;
ThreadID, dwExitCode '0 ', True.
Execute. "". Terminate.. Terminated, , True.. , , , True , ' ', , Exit.