mysql in kurulu olup olmadığının kontrolü

[sarp_halit]

merhaba arkadaşlar. kolay gelsin.

yazdığım program mysql veritabanını kullanıyor. programın çalışmasında herhangi bir sıkıntı yok ama kurulumda mysql veritabanının yüklü olup olmadığını ya da sadece onu değil de herhangi bir programın yüklü olup olmadığının kontrolünü nasıl yapabilirim.

herkese iyi çalışmalar.

[conari]

Servislerde varmı veya start mı şeklinde bakabilirsiniz.
2.si
regestryden okuyarak tabi nereye yazdığını biliyorsak.

[Battosai]

Burda kurulu olması değilde çalışıyor mu diye kontrol etmek lazım...sistem servislerini kontrol edip kurulumu diye de kontrol yapılabilir tabiki....

[sarp_halit]

peki servislerden o anda programın çalışıp çalışmadığını nasıl kontrol edebilirim? yani kod falan var mı?

[ibrahimcoban]

Kod: Tümünü seç

uses WinSvc;

function MysqServis: Boolean;
var
	Manager, mysql: SC_Handle;
	ss: TServiceStatus;
begin
	Result := False;
		Manager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
		try
			if (Manager <> 0) then
			begin
				try
					mysql := OpenService(Manager, 'mysql',  SERVICE_QUERY_STATUS);
					if (mysql <> 0) then
					begin
							if (QueryServiceStatus(mysql, ss) = True) then
						Result := (SERVICE_RUNNING = ss.dwCurrentState);
					end;
				finally
					CloseServiceHandle(mysql);
				end;
			end;
		finally
			CloseServiceHandle(Manager);
		end;
end;

Sanırım bu işini görür.