相关代码 |
|
program delphifk; uses Forms, main in 'main.pas' {Form1}; {$R *.RES} begin Application.Initialize; // icdev:longint; // st:smallint; // icdev:=OpenComm(0); // if icdev // begin // showmessage('初始化串口错误!'); // application.Terminate(); // end Application.CreateForm(TForm1, Form1); Application.Run; end.