如何知道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;