Здравствуйте.
Подскажите пожалуйста как элементарно показать форму и потока
Вот такой код
| Код |
program Project2;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
var
hThread : THandle;
ThID : Cardinal;
{$R *.res}
function MainServiceThread(p:Pointer): DWORD; stdcall;
begin
Form1:= TForm1.Create(nil);
Form1.ShowModal;
Form1.Free;
{ Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;}
end;
begin
hThread:= CreateThread(nil, 0, @MainServiceThread, nil, 0, ThID);
WaitForSingleObject(hThread, INFINITE);
CloseHandle(hThread);
end.
|
Ничего не показывает, но форма создается. |
