| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Как Вы относитесь к курящим девушкам? Распознавание текста? Как найти список свойств объекта? потеря сохраненных данных в БД HOOK QReport и QRPreview, Как сделать Print Preview в QReport ? Множества в SQL. Передача параметров., ~Истина где-то рядом~ Отследить что нажимают клавиши, На клавиатуре Запись в ЕХЕ- файл Как в ресурсное меню поместить изображение? Импорт в реестр Файлов *.REG Стоимось проги.... Вопросы по компоненту TNoteBook - НУ НАКОНЕЦТО, ЗАМЕНА ИКОНКИ СТАЛА РЕАЛЬНОСТЬЮ -, Хуки-ПУки Восстановление минимизированного приложения Integer -> Cardinal Designer, ToolBar kak у Builder Ссылка на форму, как установить ссылку с form5 на form1? Два вопроса по TRichView, кто с этим работал помагите плиз Использование mciSendCommand. Как посчитать трафик?, Сколко дали и сколько взяли! Создание соединения Помогите пожалуйста, замучался...., Предотвратить сообщение об ошибке? Как записать информацию на CD-R/CD-RW help plz, тут такой вопрос Помогите найти Cristal Reports кнопки (enabled/disabled) Как подружить BDE и MSSQL-2000?, После апгрейда SQL-сервера с 6.5 на 2000 прозрачный фон у иконок задача по консоле в delphi Сортировка строковых значений как чисел, по возрастанию.... Как прикрутить ShellExecute?, Чего ей надо? шпион на соединение Плюс-плюс Как определить подключеныTCP-IPпротоколы? Как минимизировать окна чужих программ?, свою оставить открытой TCP/IP А можно_ли организовать подключение компонента ... Pascal+First Steps, Стоит ли создавать сайт?... GetVolumeInformation, Проблема COM Port - слушать, АТС и Компьютер Ole automation Вопрос о создании файла Левый SHIFT+ENTER/Правый SHIFT+ENTE, Полное решение. Для тех кто столкнется. Можно-ли узнать hWnd у безоконного приложения? Как Вы относитесь к курящим девушкам? Как отследить завершение работы в API приложении? Вопрос о реакции с клавы Autodesk MapGuide, Программирование в Autodesk MapGuide Delphi+TCanvas, Грамотно ли чертить график на канве? Смерть буржуям! Ini, Как считать раздел? Прдотвращение второга запуска. Вопрос обо всем Без подсказок, похоже, мне не обойтись, Продолжение проблем с потоком Как определить сколько раз запущен фаил? Движение формы WebBrowser, Загрузка ТХТ- файла в WebBrowser TForm, Где обработчик событий у TForm? Delphi+Internet, TInetXPageProducer DirectInput, shift+Enter/Правый shift+Enter Как работать с TReader, Хочу нестандартно использовать TReader Функция GetVolumeInformation, Работа в сети! Вопрос о Boot секторах Вопрос по поводу непрямолинейности form & thread, непонятки Ping Посоветуйте репортер отчетов Помогите получить Crystal Report найти бы компонент, :) |
Платные хостинги Раскрутка сайта Книги по программированию Запись в ЕХЕ- файл
- Есть код с помощью него к существующему ЕХЕ- файлу дописывается строка которую потом можно прочитать. Как сделать так чтобы дописывалась не строка, а список строк?unit RW;interfaceuses Windows, SysUtils, Classes, Controls, Forms, StdCtrls, Buttons, ExtCtrls;type TForm1 = class(TForm) GroupBox1: TGroupBox; Edit1: TEdit; Button1: TButton; GroupBox2: TGroupBox; Edit2: TEdit; Button2: TButton; procedure BitBtn1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;const buff_size=50000;var Form1 : TForm1; f,f1 : file; buff : array[1..buff_size] of byte; long1 : array[1..4] of char; stub_size : longint; read : integer; xdir : string; long2 : array[1..25] of char; stub : string; self1_size : longint; self2_size : longint; h : integer; i : integer; nr_oct : integer; information1 : string; nr_information1 : byte;implementation{$R *.DFM}procedure TForm1.BitBtn1Click(Sender: TObject);var x : byte; i : integer; s : string;begintry xdir:=extractfilepath(application.ExeName ); assignfile(f,xdir+'RESULT.exe'); {$i-} rewrite(f,1); {$i+} begin stub:=xdir+'x.exe'; {$i-} assignfile(f1,stub); reset(f1,1); {$i+} stub_size:=filesize(f1); repeat {$i-} blockread(f1,buff,buff_size,read); if read>0 then blockwrite(f,buff,read); {$i+} until eof(f1); closefile(f1); closefile(f); assignfile(f,xdir+'RESULT.exe'); reset(f,1); seek(f,filesize(f)); blockwrite(f,long1,x); s:=Edit1.text; if s='' then s:='TEST'; for i:=1 to length(s) do long2[i]:=s[i]; x:=length(s); blockwrite(f,long2,x); blockwrite(f,x,1); end; closefile(f); caption:='Cool';except end;end;procedure TForm1.Button2Click(Sender: TObject);begin xdir:=extractfilepath(application.ExeName ); assignfile(f,xdir+'RESULT.exe');nr_oct:=12;h:=FileOpen(xdir+'RESULT.exe',fmShareDenyWrite); fileseek(h,-1,2); FileRead(h,nr_information1,1); nr_oct:=12+1+nr_information1; FileSeek(h,-nr_oct,2); FileRead(h,self1_size,4); FileREad(h,self2_size,4); FileRead(h,long1,4); FileRead(h,long2,nr_information1); FileClose(h); Edit2.text:=information1+long2;end;end. - Wow! Да этож исходник самого Джойнера ( Joiner ) Мы эту феню уже обсуждали с Vit'om поищи в старых топиках - Сырец посмотрел, но разбираться не стал. Просто пиши подряд все строки из массива. - Что я не нашол где вы это обсуждали. - Ну тут такое дело: тема называлась ~У меня появилась новая технология (Кажется так) и она закрыта.Но это не совсем про склеевание файлов, хотя если чуток подумать то из этой технолоджи это можно реализовать. P.S. Енто самое, если нужен исходник биндера свисни. - http://www.forum.vingrad.ru/cgi-bin....3%E8%FF - Ребят вы меня не поняли мне нужно записать и считать не строку, а список строк. - Я использовал уникальную последовательность символов (десяток байт) для нахождения начала строки, используй такой идентификатор между каждой строкой, или просто записывай их подряд разделяя #13#10 - символами конца строки, потом, после чтения разделишь на отдельные строки. - Всем спасибо за комментарии они мне помогли разобраться, как работает код. И я все написал. Тему можно закрывать.  |