Вам понадобилось, чтобы Ваше приложение само создавало пароли ? Возможно данный способ Вам пригодится. Всё очень просто: пароль создаётся из символов, выбираемых случайным образом из таблицы.
Совместимость: Delphi 5.x (или выше)
Собственно сам исходничек: Пароль создаётся из символов, содержащихся в таблице.
Внимание: Длина пароля должна быть меньше, чем длина таблицы!
Code
[i]// запускаем генератор случайных чисел (только при старте приложения). procedure TForm1.FormCreate[/i](Sender: TObject); begin Randomize
... Читать дальше »
procedure TIconShow.FileListBox1Click(Sender: TObject); var MyIcon: TIcon; MyBitMap : TBitmap; begin MyIcon := TIcon.Create; MyBitMap := TBitmap.Create;
try { получаем имя файла и связанную с ним иконку} strFileName := FileListBox1.Items[FilemIndex]; StrPCopy(cStrFileName, strFileName); MyIcon.Handle := ExtractIcon(hInstance, cStrFileName, 0);
{ рисуем иконку на bitmap в speedbutton } SpeedButton1.Glyph := M
... Читать дальше »
