Delphi中如何知道Share已经装载

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
如何知道Share.Exe已经运行? function IsShareLoaded: Boolean;
var
f: file of word;
data: word;
IsShareInstalled: Boolean;
begin
assign(f, 'im_here.not');
rewrite(f);
write(f, data);
asm
mov IsShareInstalled, true
mov bx, TFileRec(f).handle
xor cx, cx
xor dx, dx
mov si, 0
mov di, 2
mov al, 0
mov ah, $5C
int $21
jc @@NoError
dec IsShareInstalled
@@NoError:
end; {asm section}
result := IsShareInstalled;
close(f);
erase(f);
end;
 

Similar threads

I
回复
0
查看
709
import
I
I
回复
0
查看
611
import
I
I
回复
0
查看
727
import
I
I
回复
0
查看
636
import
I
后退
顶部