Блог программистов

Как я и обещал выкладываю свой способ склейки файлов.
Суть метода предельно, до тупого проста и понятна всем.
В исходник программы носителя добавляется приведённая ниже
процедура: Joiner. А дальше где-нибудь в программе
устанавливется её вызов, например в начале основной части
или, если её нет в функции FormCreate, в общем где посчитаете
нужно, там и ставите… Далее действуем так: у нас есть
два файла например nositel.exe-файл-носитель и Joined.exe —
клеимый файл. Размещаем эти файлы в одном каталоге, запускаем
nositel.exe в этом же каталоге образуется файл nositel.exe.exe
он представляет собой уже склееные два файла nositel.exe и
Joined.exe с добавленной в DOS-заголовке меткой склеености)))
В общем-то если вы все параметры правильно ввели то у всё
уже готово))… Переименовываем nositel.exe.exe в рабочее имя
и можем его применять… при запуске этого файла он извлекает
приклееную прогу в указанное в параметре место и в зависимости
от выбранный парамтров запускает или нет с выбранным способом
отображения окна)))
(more…)

Вот исходничек простенького клавиатурника можете делать с ним что хотите, главное не зазнавайтесь! К основным его преемуществам могу отнести то что он очень мал для проги такого класса (19кб), что кстати ломает убеждение о грамоздкости Делфи прог, и занимает мало места в оперативке (обычно 1-1,5мб)!
Программа абсолютно безопастная и предназдначенна только для изучения! 🙂
(more…)

Первое что я рассмотрю это копирование файлов:

procedure TForm1.Button1Click(Sender: TObject);

begin

CopyFile('Откуда\Имя файла','Куда\Новое имя файла',true)

// если файл с таким же именем уже есть то true - если заменять или false если оставить прошлую копию файла

end; 

Запись в файл:

program CrtApp;

var

 outfile: TextFile;

begin

AssignFile(outfile, 'c:\outfile.txt'); // связываем переменную с файла в который будем писать

Rewrite(outfile);

writeln(outfile, 'Привет МИР!'); // Запись в файл 'c:\outfile.txt' легендарного текста

CloseFile(outfile); // обязательно закрываем файл

end. 

Печать текста сразу на принтер:
(more…)