ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
Страница 396 из 677 « Первая < 296346386 392 393 394 395 396 397 398 399 400 406446496 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #3951  
Старый 20.07.2009, 20:26
velikijmerlin
Познающий
Регистрация: 27.02.2009
Сообщений: 31
Провел на форуме:
57677

Репутация: 4
По умолчанию
ребят, вопрос есть, как программно из делфи можно перевернуть Десктоп?
только варианты с копирование изображения Стола не предлагать.. хочется чтобы он оставался активным... и чтобы работало на любых картах...(желательно код)) )
 

  #3952  
Старый 21.07.2009, 01:01
ChuKeY
Новичок
Регистрация: 21.06.2009
Сообщений: 11
Провел на форуме:
29795

Репутация: 9
Отправить сообщение для ChuKeY с помощью ICQ
По умолчанию
поищи информацию по этой апишке
Код:
function ChangeDisplaySettingsEx(lpszDeviceName: PChar; var lpDevMode: TDeviceMode;
        wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
 

  #3953  
Старый 23.07.2009, 14:32
BlackSilver
Познающий
Регистрация: 30.01.2009
Сообщений: 30
Провел на форуме:
75077

Репутация: 14
По умолчанию
Через ADOConnection-ADOQuery-DataSource-DBGrid делал работу с таблицей БД в Access.
Потом поменял БД на Sybase Anywhere и при каждом изменении начала вылетать ошибка "Ошибка неизвестного типа".
Как исправить?
 

  #3954  
Старый 24.07.2009, 23:33
velikijmerlin
Познающий
Регистрация: 27.02.2009
Сообщений: 31
Провел на форуме:
57677

Репутация: 4
По умолчанию
доброго времени суток, возникал проблемка, надо отключить клавиши Winkey на клаве.. кнопку пуск мышкой заблокировал, но она открывается чрез нажатия винкея..
формы нет, приложение консольное и скрытое...
кто что посоветует?
 

  #3955  
Старый 25.07.2009, 04:42
[n]-c0der
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
Провел на форуме:
270228

Репутация: 70
По умолчанию
о фак мой мозг... пуск мышкой блокировал? До до, хэккерский способ...
Фленова начитались что ли...
 

  #3956  
Старый 25.07.2009, 11:08
SkyLine32
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236

Репутация: 38
Отправить сообщение для SkyLine32 с помощью ICQ Отправить сообщение для SkyLine32 с помощью AIM Отправить сообщение для SkyLine32 с помощью MSN Отправить сообщение для SkyLine32 с помощью Yahoo
По умолчанию
Привет!
Пишу на Delphi 7 довольно мало времени...
Кто может дать такой пример.
На форме есть 2 компонента TSpinEdit и TEdit.
TSpinEdit будет иметь Value от 1 до 10.
Как сделать чтобы при значении Value, рандомно генерировались числа в форме TSpinEdit...но главное чтобы если при значении к примеру 1 - генерировались числа именно в диапазоне от 0 до 9...а допустим при значении 6...была генерация в диапазоне от 000000 до 999999 ?
Вот код который делает всё что надо только кроме заданного диапазона...
Цитата:
if SpinEdit1.Value = 2 then randomize;
Edit1.Text:=inttostr(random(99));
Тесть random(99) будет колебаться и от 0 до 9, что мне и не надо...
Уже кучу времени убил и так и не смог сделать сам
Последний раз редактировалось SkyLine32; 25.07.2009 в 11:25..
 

  #3957  
Старый 25.07.2009, 14:14
Nullsleep
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284

Репутация: 54
Отправить сообщение для Nullsleep с помощью ICQ
По умолчанию
SkyLine32
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  if SpinEdit1.Value < 1 then Exit;
  Randomize;
  for i := 1 to SpinEdit1.Value do s := s + '9';
  Edit1.Text := IntToStr(Random(StrToInt(s)));
end;
 

  #3958  
Старый 25.07.2009, 19:01
SkyLine32
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236

Репутация: 38
Отправить сообщение для SkyLine32 с помощью ICQ Отправить сообщение для SkyLine32 с помощью AIM Отправить сообщение для SkyLine32 с помощью MSN Отправить сообщение для SkyLine32 с помощью Yahoo
По умолчанию
Nullsleep,
спасибо за решение, но всё равно если поставить Value 3 к примеру то примерно раз из 5 проскакивает двузначные числа.
 

  #3959  
Старый 25.07.2009, 19:38
ZdezBilYa
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582

Репутация: 107
Отправить сообщение для ZdezBilYa с помощью ICQ
По умолчанию
Randomize;
z:=1;
for i := 1 to SpinEdit1.Value do
begin
s := s + '9';
z:=z*10;
end;
z:=z div 10;
Edit1.Text := IntToStr(Random(StrToInt(s)-z)+z);
 

  #3960  
Старый 27.07.2009, 09:54
[K4t]
Познающий
Регистрация: 15.02.2009
Сообщений: 54
Провел на форуме:
142825

Репутация: 7
По умолчанию
Для velikijmerlin: попробуй поискать информацию про "глобальные хуки". Вроде как нажатие клавиш отлавливает. По принципу Кейлогера.
 
 
Страница 396 из 677 « Первая < 296346386 392 393 394 395 396 397 398 399 400 406446496 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ