Просьба к модераторам не убирать эту тему из-за большого кол-ва вопросов!
Уважаемые программисты RUNET'а
у меня есть несколько вопросов на которые хотелось бы найти ответы
1)можно ли зделать так чтобы программа себя копировала в определенную папку?
и если можно то как?
2)как сделать так чтобы программа запустила себя в определенный день в определенное время?
3)Как сделать чтобы окно выводилось во весь экран?
4)как сделать чтобы по нажатию определенного сочетания клавиш программа например закрывалась?
5)как сделать чтобы в программу можно было включать рисунки с расширениями
.JPG;.GIF
6)как проверить имеется ли на компьютере файл?(имеется в виду что одна программа создает файл,а другая совершает действие если файл создан)

Цитата

у меня есть несколько вопросов на которые хотелось бы найти ответы

а поиском пользовался? на большую часть вопросов ответы уже есть

3:

Код

form1.left:=0; form1.top:=0; form1.height:=screen.height; form1.width:=screen.width;

4: Или хук, или компонент ClientAction
5: быстро не сказать
6: Поиск файла и работа по результату...
Добавлено @ 14:46
На отсальное используй Поиск

Цитата(Dr @ 2.3.2005, 14:20)

1)можно ли зделать так чтобы программа себя копировала в определенную папку? и если можно то как?

Можно, CopyFile()

Цитата(Dr @ 2.3.2005, 14:20)

2)как сделать так чтобы программа запустила себя в определенный день в определенное время?

Использовать sheduler agent. Писать клиентскую часть для проверки даты

Цитата(Dr @ 2.3.2005, 14:20)

3)Как сделать чтобы окно выводилось во весь экран?

RTFM

Цитата(Dr @ 2.3.2005, 14:20)

4)как сделать чтобы по нажатию определенного сочетания клавиш программа например закрывалась?

RTFM

Цитата(Dr @ 2.3.2005, 14:20)

5)как сделать чтобы в программу можно было включать рисунки с расширениями .JPG;.GIF

Что значит включить? Что ты с ними хочешь делать.
Для jpeg

Код

uses JPEG;

Цитата(Dr @ 2.3.2005, 14:20)

6)как проверить имеется ли на компьютере файл?(имеется в виду что одна программа создает файл,а другая совершает действие если файл создан)

FindFirst - FindNext - FindClose;

~FoX~
1)на товой вопрос отвечаю-хочу вставить фотки
2)что значит RTFM
3)не мог бы ты написать пример использования Sheduler agent
4)что значит
FindFirst - FindNext - FindClose;
5)пример Copyfile

6)еще одно Как правильно создать файл реестра?

SoWa
не умею пользоваться компонентом clientaction

RTFM - значит Read The F*ckin Manual, тоесть читай чёртову книгу, RDKB!
Добавлено @ 15:28
Кстати Вами нарушены правила Форума, задавать можно только один вопрос в одной теме!

The MASTER
Может подскажеш в каком разделе справки об этом написано.Я через поиск пробовал,но не нашел того что искал

а чего искал? ;)
например обработчик нажатия клавиш ( OnKeyDown ) искал?

Работа с gif jpeg

Копирование:

Код

CopyFile('c:\1.txt', 'c:\temp\1.txt', false);

Из хелпа:

Код

procedure TForm1.Button1Click(Sender: TObject); var  sr: TSearchRec;  FileAttrs: Integer; begin  StringGrid1.RowCount := 1;  if CheckBox1.Checked then    FileAttrs := faReadOnly  else    FileAttrs := 0;  if CheckBox2.Checked then    FileAttrs := FileAttrs + faHidden;  if CheckBox3.Checked then    FileAttrs := FileAttrs + faSysFile;  if CheckBox4.Checked then    FileAttrs := FileAttrs + faVolumeID;  if CheckBox5.Checked then    FileAttrs := FileAttrs + faDirectory;  if CheckBox6.Checked then    FileAttrs := FileAttrs + faArchive;  if CheckBox7.Checked then    FileAttrs := FileAttrs + faAnyFile;  with StringGrid1 do  begin    RowCount := 0;    if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then    begin      repeat        if (sr.Attr and FileAttrs) = sr.Attr then        begin        RowCount := RowCount + 1;        Cells[1,RowCount-1] := sr.Name;        Cells[2,RowCount-1] := IntToStr(sr.Size);        end;      until FindNext(sr) <> 0;      FindClose(sr);    end;  end; end;

Цитата(Dr @ 2.3.2005, 15:15)

еще одно Как правильно создать файл реестра?

[Адрес]
"Имя ключа"="Значение ключа" //Строка
"Имя ключа"=dword:00000001 //DWORD параметр
"Имя ключа"=hex:01,01,d0,00,....,01 //Binary параметр


Добавлено @ 15:49
http://forum.vingrad.ru/index.php?showtopic=44128

~FoX~
1)спасибо за ссылку,но мне нужно в delphi
2)пасибо за код копирования
3)не мог бы ты разобрать код
4)за реестр тоже спасибо

Пример рекурсивного перебора дерева каталогов:

Код

//==================Поиск файлов============== procedure GetFile(Dir: string; ras: string); //Dir - путь к директории, ras - расширение файла. var f : TSearchRec;  //Структура i : integer;  //Возвращаемое значение функций FindFirst Find Next s: string;  //Полный путь к файлу begin i := FindFirst(Dir+ras, faAnyFile, f); //Ищем первый файл подходящий под условие faAnyFile (любой)  while (i=0) do //Если файл удовлетворяющий условию найден, то "продолжаем разговор"   begin    s := Dir+f.Name; // Сюда складываются пути и названия найденных файлов    i := FindNext(f); //Ищем следующий файл подходящий под условие    Application.ProcessMessages;   end; FindClose(f); //Если файл удовлетворяющий условию не найден, то закрываемся end; //==================Поиск дирикторий============== procedure GetDir(Dir: string); //Путь к директории var f : TSearchRec; //Структура i : integer; //Возвращаемое значение функций FindFirst Find Next begin i := FindFirst(Dir+'*.*', faDirectory, f); //Ищем первый файл подходящий под условие faDirectory (каталог) while (i=0) do   begin   if (f.Name='.') or (f.Name='..') then // - '.' каталог 1-го уровня, '..' - каталог придэдущего уровня   else     begin     if (f.Attr and faDirectory)<>0 then // Если найденное - директория и не '..' или '.' - то ныряем в него       begin         GetDir(Dir+f.Name+'\');  //Вызываем самого себя с новым параметром         Application.ProcessMessages;       end     else       begin        i := FindNext(f); //Ищем следующий каталог       end;     end;     i := FindNext(f); //Ищем следующий каталог     Application.ProcessMessages;   end; FindClose(f); //Баста карапузики - кончилися танцы. end;

Добавлено @ 16:12
Работа с JPEG для Delphi

Dr.No_xXx Это первый и последний раз. В следующий раз закрою тему сразу.

Alex
больше не повторится
~FoX~
Большое спасибо

Dr.No_xXx
Слушая, я тебе что то про шедулер агент-а нагнал, можно все куда проще сделать.
Создаешь прогу безоконную и ставишь её в автозагрузку (как это делать читай в DRKB) прога при каждой перезагрузки проверяет текущую дату и сравнивает с той которая нужна (хранить можно в файле для унивирсализации). Если они совподяют то опаньки - показываем акрытку с неприличными словами, если нето, то благопалучно закрываемся до следующей перезагрузки.