verificar se Midas está registrado

[martinusso 0]

Como faço para verificar se o Midas esta registrado para uma determinada pasta?Gostaria tb de saber qual o windows está rodando, 98, XP?

[marcio.theis 3]

Para verificar se esta registrada, no caso não seria somente olhar se ela se encontra dentro da pasta System32 da máquina ? Ou você pode declarar Midaslib no Uses, desta forma não vai precisar da DLL...

 

Para informações do windows...

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	verInfo: TOsVersionInfo;	str: String;	I: Word;beginverInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);if GetVersionEx(verInfo) then	begin	stOSVersao.Caption:='Versão : '+ IntToStr(verInfo.dwMajorVersion) + IntToStr(verInfo.dwMinorVersion);	stOSBuilder.Caption:='Compilação : ' + IntToStr(verInfo.dwBuildNumber);	str:='Sistema Operacional : ';	case verInfo.dwPlatformId of		VER_PLATFORM_WIN32s: stOS.Caption := str +'Windows 95';		VER_PLATFORM_WIN32_WINDOWS: stOS.Caption := str +'Windows 95 Osr2 / 98';		VER_PLATFORM_WIN32_NT: stOS.Caption := str +'Windows NT';		end;	str:='';	for I:=0 to 127 do		str:=str + verInfo.szCSDVersion[I];	stOSService.Caption:='Informações Adicionais : '+ str;	end;end;

Este exemplo peguei da internet...