Delphi中如何知道Share已经装载

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
查看
656
import
I
I
回复
0
查看
574
import
I
I
回复
0
查看
802
import
I
I
回复
0
查看
683
import
I
I
回复
0
查看
601
import
I
顶部