|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
работа с exe-файлом
подскажите пожалуйста мне с моей проблемой.. не знаю как реализовать
необходимо вводить программно данные из delphi в готовую программу. |
#2
|
||||
|
||||
Немного не понял вопрос. Вам надо записывать что-то в созданный ЕХЕ файл? Если да, то пожалуйста:
Код:
function AttachToFile(const AFileName: String; MemoryStream: TMemoryStream): Boolean; var aStream: TFileStream; iSize: Integer; begin Result := False; if(not(FileExists(AFileName))) then Exit; Try aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite); MemoryStream.Seek(0, soFromBeginning); aStream.Seek(0, soFromEnd); aStream.CopyFrom(MemoryStream, 0); iSize := MemoryStream.Size + SizeOf(Integer); aStream.Write(iSize, SizeOf(iSize)); Finally aStream.Free; end; Result := True; end; function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; var aStream: TFileStream; iSize: Integer; begin Result := False; if(not(FileExists(AFileName))) then Exit; Try aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite); aStream.Seek(-SizeOf(Integer), soFromEnd); aStream.Read(iSize, SizeOf(iSize)); if(iSize > aStream.Size) then begin aStream.Free; Exit; end; aStream.Seek(-iSize, soFromEnd); MemoryStream.SetSize(iSize - SizeOf(Integer)); MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize)); MemoryStream.Seek(0, soFromBeginning); Finally aStream.Free; end; Result := True; end; Эти функции читают и записывают в нужный тебе файл (при этом если запись происходила в ЕХЕ файл, то он остается работоспособным). Помогаю за Спасибо |
#3
|
|||
|
|||
необходимо в программу вводить данные и нажимать кнопку проверки результата... вот меня интересует как в программу от которой есть exe-файл ввести данные числовые??
P.S. прошу прощения если вначале поставил некорректно вопрос.. |