delphi 转 vb 哪位能帮忙啊
HComWnd :THandle;
HComWnd := AllocateHWnd(CommWndProc);
procedure TfrmDemo.CommWndProc( var msg: TMessage );
var
cCardInfo :PChar;
begin
end;
if OpenCom( HComWnd, 1 ) <> 1 then
begin
result:=false;
if ShowError then
begin
ShowMessage('串口已占用，通讯失败');
end;
exit;
end;
如何转换成vb的呢，delphi不懂，谁能帮忙
[解决办法]
感觉你的代码有问题
if OpenCom( HComWnd, 1 ) <> 1 then
begin
result:=false;
if ShowError then
begin
ShowMessage('串口已占用，通讯失败');
end;
exit;
end;
在什么过程中？？
[解决办法]
http://download.csdn.net/detail/veron_04/4037248
