Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Windows Programming

Последователи

7 ноември 200619 г.

Пиша една програмка, която би трябвало да върви на Уиндоус.

Проблема ми е следния, искам да разбера дали някоя програма я има инсталирана на компютъра. Примерно искам да проверя дали има сложен Firefox и ако го има да го използвам. Как може да стане това(намирането, не използването)? Или по-добрият вариянт е някой да знае как да разбера кой е браузъра по подразбиране.

Говорим принципно, не ви моля да ми напишете програмката. :hush:

Всякакви идеи са добре дошли.

7 ноември 200619 г.

Пиша една програмка, която би трябвало да върви на Уиндоус.
Проблема ми е следния, искам да разбера дали някоя програма я има инсталирана на компютъра. Примерно искам да проверя дали има сложен Firefox и ако го има да го използвам. Как може да стане това(намирането, не използването)? Или по-добрият вариянт е някой да знае как да разбера кой е браузъра по подразбиране.

Говорим принципно, не ви моля да ми напишете програмката.

Всякакви идеи са добре дошли.

Проверяваш в Registry с кое приложение се отварят HTML файлове.

За Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var

  Reg: TRegistry;

  KeyName: string;

  ValueStr: string;

begin

  Reg := TRegistry.Create;

  try

	Reg.RootKey := HKEY_CLASSES_ROOT;

	KeyName	 := 'htmlfile\shell\open\command';

	if Reg.OpenKey(KeyName, False) then

	begin

	  ValueStr := Reg.ReadString('');

	  Reg.CloseKey;

	  ShowMessage(ValueStr);

	end

	else

	  ShowMessage('There isn't a default browser');

  finally

	Reg.Free;

  end;

end;

7 ноември 200619 г.

Администратор

По-интересно е как се взима списъка от Add/Remove Programs

7 ноември 200619 г.

По-интересно е как се взима списъка от Add/Remove Programs

Списъка се получавал от Uninstall :whist:

uses Registry;

...

procedure TForm1.Button1Click(Sender: TObject);

var

  MyList: TStringList;

  MyRegistry: TRegistry;

  i: Integer;

  Str: string;

begin

  MyRegistry:=TRegistry.Create;

  MyList:=TStringList.Create;

  with MyRegistry do

  begin

	RootKey:=HKEY_LOCAL_MACHINE;

	if OpenKey(

	  'Software\Microsoft\Windows\CurrentVersion\Uninstall', 

	  False)=True then GetKeyNames(MyList);

	CloseKey;


	for i:=0 to MyList.Count-1 do

	begin

	  RootKey:=HKEY_LOCAL_MACHINE;

	  OpenKey(

		'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+

		MyList[i], 

		False);

	  Str:=ReadString('DisplayName');

	  if Str<>'' then

		Memo1.Lines.Add(ReadString('DisplayName'));

	  CloseKey;

	end;

  end; 

end;

7 ноември 200619 г.

Автор

Голямо благодаря на cecov

:wors:

Дано не е много нагло да попитам как би станало това при just basic, защото никога не съм бутал delphi.

Доколкото разбрах проверяваш нещо в регистрите, но не и точно как.... Много би ме улеснил ако напишеш кое какво прави в кода, който си написал за да мога да го пренапиша.

P.S. Lamer съм си, какво да се прави :wors:

7 ноември 200619 г.

Голямо благодаря на cecov

Дано не е много нагло да попитам как би станало това при just basic, защото никога не съм бутал delphi.

Доколкото разбрах проверяваш нещо в регистрите, но не и точно как.... Много би ме улеснил ако напишеш кое какво прави в кода, който си написал за да мога да го пренапиша.

P.S. Lamer съм си, какво да се прави

Няма какво толкова да се обяснява. Не знам какви са функциите на JustBasic за достъп до Registry-то, но главното е да прочетеш стойността на ключа HKEY_CLASSES_ROOT\htmlfile\shell\open\command