[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 396 из 677

396

Опции темы

Поиск в этой теме

Опции просмотра

#3951

20.07.2009, 20:26

velikijmerlin

Познающий

Регистрация: 27.02.2009

Сообщений: 31

С нами: 9053041

Репутация: 4

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

#3952

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;

#3953

23.07.2009, 14:32

BlackSilver

Познающий

Регистрация: 30.01.2009

Сообщений: 30

С нами: 9093757

Репутация: 14

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

#3954

24.07.2009, 23:33

velikijmerlin

Познающий

Регистрация: 27.02.2009

Сообщений: 31

С нами: 9053041

Репутация: 4

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

#3955

25.07.2009, 04:42

[n]-c0der

Участник форума

Регистрация: 03.02.2009

Сообщений: 104

С нами: 9087590

Репутация: 70

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

#3956

25.07.2009, 11:08

SkyLine32

Участник форума

Регистрация: 01.03.2009

Сообщений: 121

С нами: 9050197

Репутация: 38

Отправить сообщение для 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

С нами: 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;

#3958

25.07.2009, 19:01

SkyLine32

Участник форума

Регистрация: 01.03.2009

Сообщений: 121

С нами: 9050197

Репутация: 38

Nullsleep,
спасибо за решение, но всё равно если поставить Value 3 к примеру то примерно раз из 5 проскакивает двузначные числа.

#3959

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);

#3960

27.07.2009, 09:54

[K4t]

Познающий

Регистрация: 15.02.2009

Сообщений: 54

С нами: 9070574

Репутация: 7

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

Страница 396 из 677

396

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

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

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