Пятница, 11.07.2025, 21:03
Приветствую Вас Гость
Меню сайта


Копилка для дальнейшего развития ресурса.
 
Форма входа
Интересное
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Программирование на Delphi.

Программирование

Главная » FAQ

Проверяйте значение переменной key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RIGHT then
  Form1.Caption := 'Right';
  if Key = VK_F1 then
  Form1.Caption := 'F1';
end;



Uses WinINet; 

и добавить к TButton следующий обработчик btnEmptyCache: 

Procedure TForm1.Button1Click( Sender : TObject ); 
Var 
  lpEntryInfo : PInternetCacheEntryInfo; 
  hCacheDir : LongWord; 
  dwEntrySize : LongWord; 
  dwLastError : LongWord; 
Begin 
  dwEntrySize := 0; 
  FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize ); 
  GetMem( lpEntryInfo, dwEntrySize ); 
  hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize ); 
  If ( hCacheDir <> 0 ) Then 
  DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName ); 
  FreeMem( lpEntryInfo ); 
  Repeat 
  dwEntrySize := 0; 
  FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize ); 
  dwLastError := GetLastError(); 
  If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin 
  GetMem( lpEntryInfo, dwEntrySize ); 
  If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then 
  DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName ); 
  FreeMem(lpEntryInfo); 
  End; 
  Until ( dwLastError = ERROR_NO_MORE_ITEMS ); 
End;


Необходимо подключить модуль MMSystem.

В обработчике любого события напишите:

PlaySound(PChar('здесь путь к файлу'),0,SND_ASYNC);

Если вы хотите остановить проигрывание звука то:

PlaySound(0,0,SND_PURGE);


Подключите модуль StrUtils.

Далее в обработчике событий напишите:

if AnsiLeftStr(Edit1.text,5)=AnsiLeftStr(Edit2.text,5) then

ShowMessage('Первые 5 символов обоих строк совпадаю!')


В обработчике (нужного вам события) напишите:

var

   UserName: string;

   Par: Dword;

begin

   Par:=255;

   SetLength(UserName,Par);

   if GetUserName(PChar(UserName),Par) then ShowMessage(Copy(UserName,1,Par-1)) 

   else ShowMessage('Невозможно определить имя пользователя!');