Delphi заготовки

http://netsoftware.ucoz.ru/57_perevod_summy_v_stroku.zip



Статья про программу на Delphi для перевода суммы в строку имела некоторый успех на сайте  решил выложить пример подобной программы.

1. При запуске программа передает содержимое буфера обмена в компонент для ввода чисел.
2. Происходит преобразование числа в сумму прописью
3. Выдает результат в буфер обмена
4. по нажатию Esc программа закрывается



... Читать дальше »

 Нужна программа, которая через определенное время (например каждые 5 секунд, но чтобы можно самому казать временной период) смещает курсор мыши в случайном направлении на случайное количество пикселов, но не более например пяти (с возможностью указания этого числа). простенькая форма с двумя эдитами: в первом указываем интервал, во втором максимальное число пикселов, на которое может сместиться курсор.



Чтобы вывести время простоя компьютера нужно написать следующую функцию:

function CheckIddleTime: DWord;
var
   LastInput: TLastInputInfo;
begin
   LastInput.cbSize := SizeOf(TLastInputInfo);
   GetLastInputInfo(LastInput);
   Result := GetTickCount - LastInput.dwTime;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= 'Время простоя: ' + vartostr(CheckIddleTime/1000)+' секунд(ы)';
end;

далее напишем программу по просьбе ... Читать дальше »