В качестве нового языка программирования Windows Delphi имеет
Множество отличных функций интегрированы в одну, поэтому она становится все более популярной среди программистов и программистов.
В фаворе у аудиофилов. Следующие десять методов охватывают широкий спектр областей. Я надеюсь, что они могут это сделать.
Достаточно, чтобы принести пользу энтузиастам Delphi.
1． Похоже на вб. Функция doevents.
Вы можете обнаружить, что в Delphi нет эквивалента vb. делать в
ents, поэтому иногда мы не можем заставить Windows реагировать должным образом.
одновременные события. Собственно, в объекте приложения Delphi
Включает аналогичный метод: PROcessMessage, вы можете вызвать
Используйте приложение. ProcessMessage для завершения, как vb. нырнуть в
nt та же функция.
2． Вызовите NetscapeNavigator в Delphi.
Учитывая популярность Интернета, задумывались ли вы когда-нибудь об использовании его в своей программе на Delphi?
Запустите браузер Netscape и отобразите домашнюю страницу с указанным вами WWW-адресом.
. Следующая программа может выполнить эту функцию.
программа Netscape;
используетDDEMan;
процедураGo??toURL(sURL: string);
вар
dde:TDDEClientConv;
начинать
dde: ΚTDDEClientConv. Создать (ноль);
сдаддедо
начинать
//указать местоположение Netscape. Exe
ServiceApplication: Κ′c: ιns32ιprogramιne
пейзаж. Exe';
//активируем NetscapeNavigator
SetLink('Netscape', 'WWW-Активировать');
RequestData('0xFFFFFFFF');
//перейти к указанному URL-адресу
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+',,0xFFFFFFFF,0x3,,,
');
ЗакрытьСвязь;
конец;
дде. Бесплатно;
конец;
начинать
GotoURL('http://www.yahoo.com/');
конец.
3. Форматированный целочисленный вывод.
Большие числа будут трудно читать при выводе в Delphi.
Отображение чисел с помощью меток разделов довольно простое дело: xx
ххх. подпись: ΚFormatFloat(′#′, 524667500).
4. Получайте подсказки во время компиляции.
В Delphi2.0 при компиляции вы можете попросить компилятор сообщить вам некоторые
Советы, например, какие переменные объявлены, но никогда не используются. мы знаем
Да, вы можете контролировать, хотите ли вы, чтобы Delphi делал это, с помощью параметров в меню.
Но если из-за каких-то особых нужд он вам понадобится только в указанном сегменте кода.
Что мне делать, если я получаю сообщение типа lphi? Пожалуйста, обратитесь к следующим процедурам.
{$ХИНТОН}
процедураTform1. Button1Click (Отправитель: TObject
);
вар
Х: целое число;
начинать
конец;
{$HINTOFF}
5. Сменить обои Windows95.
Вы можете легко изменить обои в Delphi, см. следующее.
программа.
процедураChangeIt;
вар
Рег: Трегинифиле;
начинать
Рег: ΚTRegIniFile． Создать('Панель управления')
;
Рег. WriteString('рабочий стол', 'Обои',
′c: ιpwin95ιдля??est． бмп');
Рег. WriteString('рабочий стол', 'TileWallpaper
','1');
Рег. Бесплатно;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
, ноль, SPIF-SENDWININICHANGE);
конец;
6． Получите дату последнего использования файла.
В Win95 появилась новая функция, позволяющая получить доступ к файлам.
последнее свидание. На этом основано знаменитое программное обеспечение CleanSweapforWin95.
Эта функция используется как одна из основ для оценки того, часто ли осуществляется доступ к файлу.
В Delphi мы можем реализовать эту функцию с помощью следующей программы.
functionGetFileLastaccessTime(sFileName:stri
нг):TDate??Time;
вар
ffd:TWin32FindData;
дфт: DWord;
лфт: TFileTime;
ч: РУЧКА;
начинать
//получить информацию о файле
ч: «Окна». FindFirstFile(PChar(sFileName
), ФФД);
if(INVALID―HANDLE―VALUEΙΛh), то
начинать
//мы ищем только один файл, socloSEOur″f
инд″
Окна. НайтиЗакрыть(ч);
//конвертируем FILETIME в локальный FILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,лфт);
//конвертируемFILETIME вDOStime
FileTimeToDosDateTime(lft,LongRec(dft).Привет
,LongRec(dft). Ло);
//наконец, конвертируем DOStime в TDateTimeforusein
Собственные функции даты/времени Delphi
Результат: ΚFileDateToDateTime(dft);
конец;
конец;
GetFileLastAccessTime() будет использовать TdateTi Delphi.
me формат возвращает дату последнего доступа к указанному вами файлу.
7. Красочные этикетки.
Нас больше не удовлетворяют простые теги, предоставляемые Delphi. Можем ли мы?
На этикетках используются разные шрифты и разные цвета, чтобы обогатить нас.
исполнительская способность. Ответ – да, и нет необходимости в контроле со стороны третьей стороны.
программное обеспечение, нам просто нужно умело использовать TRichEdit, предоставляемый самой Delphi
Вот и все. Сначала удалите границу элемента управления TRichEdit: RichEd??it1.
． BorderStyle: ΚbsNone также устанавливает атрибут «только для чтения» в значение true: Rich;
Эд??it1. ReadOnly: ΚTrue, тогда вы используете write или что-то подобное;
После того, как программа создаст текст в формате RichText, вы можете отобразить его с помощью следующего оператора:
Показано:
Богатое редактирование1. PlainText:ΚFalse;
Богатое редактирование1. Линии. LoadFromFile(′c: ιtest.r
тф');
8. Как запретить Win95 отображать критические ошибки.
Независимо от того, сколько раз вы отлаживаете свою программу, после ее передачи пользователю всегда останутся
Могут возникнуть непредвиденные ошибки. Как предотвратить отображение белого цвета в Win95.
А как насчет окон, которые сообщают вашим пользователям о том, что произошла досадная неожиданная ошибка? мы можем
Сделайте это:
вар
wOldError??Режим: Word;
начинать
//сказатьwin??dowstoignorecriticalerrorsandsave
Cur??renterrormode
wOldError??Mode: ΚSetEr??rorMode (SEM-FAILCR
ITI??CALERRORS);
пытаться
//код, который может генерировать критическую ошибкуgoesher
е. ． ．
окончательно
//возврат к предыдущему режиму ошибки
SetErrorMode(wOldErrorMode);
конец;
конец;
В основном используйте SetErrorMode() для выполнения этой функции.
9. На какой объект только что щелкнули мышкой.
В Win95 большую роль играет правая кнопка мыши, но
По историческим причинам использование щелчка правой кнопкой мыши по-прежнему затруднено даже в Delphi.
Недостаточно эффективно, следующая программа может рассказать вам, как узнать, когда вы только что щелкнули правой кнопкой мыши.
имя объекта. Сначала создайте всплывающее меню, а затем следующий код может
Чтобы сообщить вам имя объекта, который вы только что щелкнули правой кнопкой мыши: Popup??Menu1. ПопапКом
компонент. ИмяКласса.
10． Проверьте, не менялись ли компакт-диск или другие диски.
Самый простой способ проверить, был ли заменен компакт-диск или диск
заключается в проверке номера тома. Вы можете просто использовать следующую функцию для возврата
Возвращает номер серии тома диска GetDiskVolSerialID («E»),
Код функции следующий:
functionGetDiskVolSerialID (cDriveName: char)
:DWord;
вар
dwTemp1, dwTemp2: DWord;
начинать
GetVolumeInformation(PChar(cDriveName+':
ι'),
Ноль,
0,
Результат,
dwTemp2,
dwTemp2,
Ноль,
0);
конец;