G
guan_2000
Unregistered / Unconfirmed
GUEST, unregistred user!
我有两个应用程序同时随WINDOWS启动,在程序初试化时都会访问同一硬件,请问这会不会引起冲突?如果关闭其中一个应用程序,会不会引起另一个应用程序出错?我现在这两个程序有时一个会死机,不知道是不是硬件问题带来的.下面是对硬件的初试化和关闭.两个程序对硬件采用一样的初试化和关闭代码.
function tpciForm1.comminitialize:bool;
var
pdevicenamechar;
data:integer;
begin
pdevicename:='//./MYCARDDevice0';
pdo:=CreateFile(pdevicename,
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
0,
0);
if pdo=invalid_handle_value then
begin
Result:=False;
label21.Caption:='没有装入驱动程序';
exit;
end;
Readfile(pdo,Read_Buffer,4,iReaden,nil);
data:=byte(read_buffer[1]);
data:=data div 8;
if data=31 then
begin
Result:=False;
label21.Caption:='硬件装入不正确,请重新安装!';
exit;
end;
card_num:=data;
result:=true;
end;
function tpciForm1.closedevice:bool;
begin
closehandle(pdo);
result:=true;
end;
只有50分了..
function tpciForm1.comminitialize:bool;
var
pdevicenamechar;
data:integer;
begin
pdevicename:='//./MYCARDDevice0';
pdo:=CreateFile(pdevicename,
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
0,
0);
if pdo=invalid_handle_value then
begin
Result:=False;
label21.Caption:='没有装入驱动程序';
exit;
end;
Readfile(pdo,Read_Buffer,4,iReaden,nil);
data:=byte(read_buffer[1]);
data:=data div 8;
if data=31 then
begin
Result:=False;
label21.Caption:='硬件装入不正确,请重新安装!';
exit;
end;
card_num:=data;
result:=true;
end;
function tpciForm1.closedevice:bool;
begin
closehandle(pdo);
result:=true;
end;
只有50分了..