function ExtractDllFilePath: string;
 var
   DllFileName: array[0..MAX_PATH] of char;
   i: Integer;
 begin
   Result := '';
   FillChar(DllFileName, sizeof(DllFileName), #0);
   GetModuleFileName(hInstance, DllFileName, sizeof(DllFileName));
   Result := '';
   for i := 0 to MAX_PATH do
     if DllFileName[i] = #0 then break
     else
       Result := Result + DllFileName[i];
   Result := ExtractFilePath(Result);
 end;