Советы по Delphi. Версия 1.4.3 от 1.1.2001

"InstallType"=hex:03,00

"SetupFlags"=hex:08,01,00,00

"DevicePath"="C:\\WINDOWS\\INF"

"ProductType"="9"

"RegisteredOwner"="Jacky Shikerya"

"RegisteredOrganization"="SigmaЩ Soft. Universal ltd.й"

"ProductId"="12095-OEM-0004226-12233"

"LicensingInfo"=""

"SubVersionNumber"=" B"

"InventoryPath"="C:\\WINDOWS\\SYSTEM\\PRODINV.DLL"

"ProgramFilesDir"="C:\\Program Files"

"CommonFilesDir"="C:\\Program Files\\Common Files"

"MediaPath"="C:\\WINDOWS\\media"

"ConfigPath"="C:\\WINDOWS\\config"

"SystemRoot"="C:\\WINDOWS"

"OldWinDir"=""

"ProductName"="Microsoft Windows 95"

"FirstInstallDateTime"=hex:81,73,b0,22

"Version"="Windows 95"

"VersionNumber"="4.00.1111"

"BootCount"="3"

"OtherDevicePath"="C:\\WINDOWS\\INF\\OTHER"

=== And cut Here!(or there?!) [a.reg] ===

В uses пpописываешь модуль Registry и дальше так:

var

 R:TRegistry;

 No:String;

begin

 R:=TRegistry.Create;

 R.RootKey:=HKEY_LOCAL_MACHINE;

 R.OpenKey('….', false) {если false то пытается откpыть не создавая}

 No:=R.ReadString('VersionNumber');

 if no=….. then …… else ……

end;

Выше был приведён кусочек из Windows 95/98 Registry. В Windows NT эта ветвь находится в разделе [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion] Кроме того, обязательно посмотрите на список функций WinAPI, имена которых начинаются с Get…. Например, GetComputerName, GetVersionEx, GetSystemInfo, SystemParametersInfo.

Ярлыки (ShortCuts)

Создание ярлыков

[email protected] пишет:

Может ещё так можно ярлыки делать?

uses … ShlObj, ComObj, ActiveX, shellapi, ComCtrls, ... // не помню какая из них нужна, вообще наити можно поиском в *.pas в каталоге

// disk:\Program Files\Borland\Delphi5\Source

procedure SetShortCut(path, cmd, icon, wd, name, arg : String);

var

 ShellObject:IUnknown;

 LinkFile:IPersistFile;

 ShellLink:IShellLink;

begin

 Try

  CoInitialize(nil);

  ShellObject:=CreateComObject(CLSID_ShellLink);

  LinkFile:=ShellObject as IPersistFile;

  ShellLink:=ShellObject as IShellLink;  // RTFM - интерфейсу IShellLink, там всё описано

  ShellLink.SetPath(@cmd[1]);

  ShellLink.SetWorkingDirectory(@wd[1]);

  ShellLink.SetIconLocation(@icon[1], 0); // вместо 0 можно указать номер иконки если их там много…

  ShellLink.SetDescription(@name[1]);

  ShellLink.SetArguments(@arg[1]);

  LinkFile.Save(PWChar(WideString(path)),true);

 finally

  ShellObject:=Unassigned;

  CoUninitialize;

 end;

end;

Разное

`Устойчивые` всплывающие подсказки

На TabbedNotebook у меня есть множество компонентов TEdit. Я изменяю цвет компонентов TEdit на желтый и назначаю свойству Hint компонента строчку предупреждения, если поле редактирования содержит неверные данные.

Поведение окна со всплывающей подсказкой (hintwindow) позволяет делать его видимым только тогда, когда курсор мыши находится в области элемента управления. Но мой заказчик хочет видеть подсказки все время, пока поле редактирования имеет фокус.

Я не знаю как изменить поведение всплывающей подсказки, заданное по умолчанию. Я знаю что это возможно, но кто мне подскажет как?

Ниже приведен модуль, содержащий новый тип hintwindow, TFocusHintWindow. Когда вы "просите" TFocusHintWindow появиться, он появляется ниже элемента управления, имеющего фокус. Для показа и скрытия достаточно следующих команд:

FocusHintWindow.Showing := True;