Программирование на Delphi и не только
Сайт для Delphi программиста
Бывают в жизни моменты, когда душа требует песни, притом собственного исполнения. Но обеспечить себе достойное музыкальное сопровождение могут далеко не все, да и слова не всегда вспоминаются в нужный момент. А если и слова знаешь и можешь примерно в тему побренчать на гитаре, то в минуты особого веселья бывает трудновато перемещать непослушные пальцы по грифу …
Delphi FAQ >> ООП и Компоненты Delphi Бывает, при разработке программы, требуется проверить, поддерживает ли данный объект некоторое свойство. Как один из вариантов — можно воспользоваться функцией GetPropInfo из модуля TypInfo, которое возвращает информацию о заданном свойстве указанного объекта, либо nil, если свойство не поддерживается. Вот готовая функция на Delphi, которая возвращает true или false …
Delphi FAQ >> Интернет Данная функция, написанная на языке программирования Delphi, возвращает URL активной страницы, открытой в web-браузере Opera или Netscape, а также заголовок окна браузера. Uses DdeMan; … function GetOperaURLandTitle: String; var DDE: TDdeClientConv; begin DDE := TDdeClientConv.Create(Application); if DDE.SetLink( ‘Netscape’, ‘WWW_GetWindowInfo’ ) then result := DDE.RequestData( ‘0xFFFFFFFF, sURL, sTitle’ …
Delphi FAQ >> Интернет Данная процедура на Delphi позволяет открыть ссылку в текущем окне браузера Internet Explorer. uses ddeman; … procedure GotoWebPage; var DDE : TDDECLientConv; URL : String; URLFired : Boolean; begin URL := ‘http://www.hotbot.com’; DDE := TDDEClientConv.Create(nil); try DDE.ServiceApplication := ‘iexplore’; if DDE.SetLink(‘iexplore’, ‘WWW_OpenURL’) then …