HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 390 из 671 « Первая < 290340380 386 387 388 389 390 391 392 393 394 400440490 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 20.07.2009, 20:26
velikijmerlin
Познающий
Регистрация: 27.02.2009
Сообщений: 31
С нами: 9053041

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

  #2  
Старый 21.07.2009, 01:01
ChuKeY
Новичок
Регистрация: 21.06.2009
Сообщений: 11
С нами: 8889093

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

  #3  
Старый 23.07.2009, 14:32
BlackSilver
Познающий
Регистрация: 30.01.2009
Сообщений: 30
С нами: 9093757

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

  #4  
Старый 24.07.2009, 23:33
velikijmerlin
Познающий
Регистрация: 27.02.2009
Сообщений: 31
С нами: 9053041

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

  #5  
Старый 27.07.2009, 09:54
[K4t]
Познающий
Регистрация: 15.02.2009
Сообщений: 54
С нами: 9070574

Репутация: 7
По умолчанию
Для velikijmerlin: попробуй поискать информацию про "глобальные хуки". Вроде как нажатие клавиш отлавливает. По принципу Кейлогера.
 
Ответить с цитированием

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

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

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

Репутация: 38
По умолчанию
Привет!
Пишу на 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..
 
Ответить с цитированием

  #8  
Старый 25.07.2009, 14:14
Nullsleep
Познающий
Регистрация: 02.06.2009
Сообщений: 67
С нами: 8916612

Репутация: 54
По умолчанию
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;
 
Ответить с цитированием

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

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

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

Репутация: 107
По умолчанию
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);
 
Ответить с цитированием
Ответ
Страница 390 из 671 « Первая < 290340380 386 387 388 389 390 391 392 393 394 400440490 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2569 10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



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


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




ANTICHAT ™ © 2001- Antichat Kft.