Программирование
Главная » 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('Невозможно определить имя пользователя!'); |