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;
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;