Нужно «замостить» TImage маленьким изображением.

(читать всё…)

 If (GetAsyncKeyState(VK_XBUTTON1) <> 0) or (GetAsyncKeyState(VK_XBUTTON2) <> 0)

Использую такую вот конструкцию, чтобы проверить зажата кнопка

Но если я нажал кнопку, отпустил и потом произошла проверка — она все равно даст результат true

А как сделать так, чтобы результат был true только если кнопка зажата сейчас?

(читать всё…)

У меня на клавиатуре есть кнопки управления звуком( vol+ vol- mute). Но пользоваться ими не совсем удобно. В программе Mkey видел что когда меняешь громкость появляется progress bar где отображается уровень громкости. Теперь хочу написать что-то похожее: программа будет висеть в трее, а окно с прогресс бар-ом будет появляться только при изменении громкости и потом исчезать через 3 секунды.

Вопрос:

1. каким образом можно узнать что громкость меняется (чтобы сразу показать прогресс бар)?
2. как узнать текущую громкость чтобы показать ее в прогресс бар-е?

(читать всё…)

Нужно сделать программу:

Если просто запускается программа, без параметров — то запускается форма

Если же программа запускается с каким-то конкретным параметром — то тогда программа совершает вычисления без запуска формы, возвращает результат и закрывается

Как это сделать?

(читать всё…)

Задача такая:

Программа А запускает программу B, передаёт в нее строку и переходит в режим ожидания
Программа В принимает строку, совершает обработку и передаёт ее обратно в А, после чего закрывается

Программа А «оживает» после закрытия программы В

(читать всё…)

Задача — перемещать строки в TStrings.

(читать всё…)

Использую такую вот процедуру. Но не покидает ощущение, что есть более прямой метод получения списка дисков. Вопрос: существует?

Procedure Disks(ss:TStrings);
var
  s1:string[2];
  c:char;
begin
  s1:='A:';
  ss.Clear;
  A.SetTextBuf(PChar_Computer);
  For c:='A' to 'Z' do begin
    s1[1]:=c;
    If DirectoryExists(s1) then begin
      ss.Add(s1);
    End;
  End;
end;

(читать всё…)

Embarcadero 11 под Windows 10.
Нужно преобразовать строки ANSI в OEM.

В Delphi 7 под Windows XP всё прокатывало. Сей час же функция возвращает ошибку . Господа, не подскажете в чём засада?

(читать всё…)

как играя со строками

из ip адреса вывести последние цифры

s :=Copy(s, 1, Pos(‘.’, s));

скаежем ip Адрес у ПК 192.168.108.14

нужно вывести 108.14

или 11.14.105.15

то выводом 105.15

причем нужны оба варианта 105.15 и 10515

(читать всё…)

Как вставить с помощью ButtonClick символ диаметра в поле RichEdit. Не понимаю как сделать, чтобы Delphi 7 понимал Unicode. Объясните, пожалуйста….
У меня программа, в которой вводится текст в простой Edit. Нужно, с помощью кнопки Button вставлять символ диаметра в место, где находится курсор. Почитав я так понял что в простом Edit это нельзя сделать, т.к. не поддерживает символы из Unicode.

procedure TMainForm.diametr1Click(Sender: TObject);
var diam1: WideString;

begin

//diam1:=WideChar(#0216);
//diam1:=WideChar($00C18);
diam1:=WideChar($#2300);
//diam1:=WideChar(#$U+2300);

diam.SetSelTextBuf(PChar(diam1));

end;

(читать всё…)