Delphi заготовки

Программа копирования экрана на Image1

procedure GetBitmapFromDesctop(rm:Tcanvas);
var DeskTopCanvas:Tcanvas; // Canva экрана
    DeskTopDC:Thandle; // Экран
    DeskTopRect: TRect; // Размер области
begin
  DeskTopDC := GetWindowDC(GetDeskTopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
//  DeskTopCanvas.Rectangle(0,0,50,50);
  DeskTopRect:=rect(0,0,screen.width,screen.Height);
  //rm:=Tbitmap.Create;
//  rm.Width:=DeskTopRect.Right;
//  rm.Height:=DeskTopRect.Bottom;
  rm.CopyRect(rm.ClipRect,DeskTopCanvas,DeskTopRect);
  DeskTopCanvas.Free;

end;


Пример
procedure TForm1.Button1Click(Sender: TObject);
begin
   GetBitmapFromDesctop(form1.Image1.Canvas);

end;




рисуем прямоугольник на рабочем столе за ярлыками  (Windows 7 / проверенно работает)

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

Здравствуйте, подскажите пожалуйста как решать такую задачку?
"Пусть дан текстовый файл. Для каждой строки распечатайте слово наибольшей длины. Если их несколько, то распечатайте все."
Delphi 7


const
  wordchar : set of char = ['A'..'Z','a'..'z','0'..'9','А'..'Я','а'..'я','-']; // слово состосит из знаков латинского и русского алфавитов + цифры от 0 до 9 разделитель '-'

var s:string; // строка
    s2:string; // слово
    maxLenWord:integer; // длина максимального слова в строке
    row:integer; // счетчик строк
    L:integer; // длина строки
    x:integer; // счетчик для цикла по все длине строки

begin
form1.ListBox1.Items.Clear; // очищаем вывод результата
  for row:=0 to form1.Memo1.Lines.Count-1 do begin // цикл по строкам

      s:=form1.Memo1.Lines[row];
      if s<>'' then
&n ... Читать дальше »