Набор задач Delphi.

[Игopь]

Пожалуйста решите что нибудь. Сам все не осилю к понедельнику.

1. Создать элементарный калькулятор с двумя числами, используя указатели на функции.
2. Пользователь вводит имя класса(Name) и число N. Создать N окон класса Name.
3. Создать N окон. Заполнить этими окнами всю площадь рабочего стола так, чтобы ширина у всех окон была одинаковая.
4. Создать N окон. Заполнить этими окнами всю площадь рабочего стола так, чтобы высота у всех окон была одинаковая.
5. Вводится имя класса окна. Подсчитать количество открытых окон с таким именем класса.
6. Вводится заголовок окна окна. Подсчитать количество открытых окон с таким заголовком.
7. Указывается HWnd окна, подсчитать сколько у него детей.
8. Вывести полный размер папки в байтах.
9. Дан полный адрес папки. Посчитать количество вложенных подпапок.
10. Дан полный адрес папки. Удалить всю папку со всем содержимым.
11. Дан файл произвольного типа. Создать его копию с новым именем.
12. Даны два файла одного и того же типа. Добавить к первому файлу содержимое второго файла.
13. Даны два файла произвольного типа. Поменять местами их содержимое.
14. Даны три файла одного и того же типа, но разного размера. Заменить содержимое самого длинного файла на содержимое самого короткого.
15. Дана строка S0, целое число N (≤4) и N файлов одного и того же типа с именами S1, ..., SN. Объединить содержимое этих файлов (в указанном порядке) в новом файле с именем S0.
16. Дано имя файла, определить является ли этот файл исполняемым (Portable Executable).

[kventin_zhuk]

Сам все не осилю к понедельнику.

Давайте обсудим кто в этом виноват и что делать.

[Mad_Cat]

10

function MyRemoveDir(sDir : string) : Boolean;
var
  iIndex: Integer;
  SearchRec: TSearchRec;
  sFileName: string;
begin
  Result := False;
  sDir := sDir + '\*.*';
  iIndex := FindFirst(sDir, faAnyFile, SearchRec);

  while iIndex = 0 do
  begin
    sFileName := ExtractFileDir(sDir)+'\'+SearchRec.name;
    if SearchRec.Attr = faDirectory then
    begin
      if (SearchRec.name <> '' ) and (SearchRec.name <> '.') and
      (SearchRec.name <> '..') then
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;

(с)zetrix
http://www.programmersforum.ru/showp...47&postcount=2
8
http://www.delphiworld.narod.ru/base/get_dir_size.html

[Игopь]

Сообщение от kventin_zhuk

Сам все не осилю к понедельнику.

Давайте обсудим кто в этом виноват и что делать.

давайте писать все что не относиться к теме.

Сообщение от Mad_Cat

10

спасибо.