Как вписать строки в файл

[Master-Skull]

думаю да, хотя это впервые. Заренее ограмное спасибо.
PS А асм у тя какой? Ато если MASM32 да ещё и с комантариями, вообще бесценно =)

[JTG]

Такс, ну в самом простом варианте вотъ.
(MASM32 респект и уважуха, но я люблю FASM )

display 'Мелкая кривая прога, которая по идее',13,10,\
'работать не должна (?) но работает :)',13,10,\
'JTG(at)GALA(dot)NET // 2007'

format PE GUI 4.0
entry start

include 'win32axp.inc'

section '.data' data readable writeable

  _path          rb MAX_PATH
  _handle        dd ?
  _nBytesRead    dd ?
  _overlay       rb 65535

section '.code' code readable executable

  start:

        invoke  GetModuleHandle,0
        invoke  GetModuleFileName, eax,_path,MAX_PATH
       ;invoke  MessageBox, HWND_DESKTOP,_path,"Путь // для отладки",MB_OK+MB_ICONINFORMATION
        invoke  CreateFile,_path,GENERIC_READ,FILE_SHARE_READ+FILE_SHARE_WRITE,NULL,OPEN_EXISTING,NULL,NULL
        mov     [_handle],eax

        cmp     eax,INVALID_HANDLE_VALUE
        je      .open_error

        invoke  SetFilePointer, [_handle],1536,NULL,FILE_BEGIN               ; переводим указатель в конец файла (1536-й байт)
        invoke  ReadFile, [_handle],_overlay,65535,_nBytesRead,NULL          ; пытаемся читать 64 кб оверлея =) Гыыы, работает О_о

        invoke  MessageBox,HWND_DESKTOP,_overlay,"Сообщение",MB_OK+MB_ICONINFORMATION

        invoke  CloseHandle,[_handle]
        cmp     eax,0
        je      .close_error
        jmp     exit

  .open_error:
        invoke  MessageBox,0,'Программа не смогла открыть свой файл на чтение!','Error!',MB_OK+MB_ICONSTOP
        jmp     exit
  .close_error:
        invoke  MessageBox,0,'Программа не смогла закрыть хендл!','Warning!',MB_OK+MB_ICONEXCLAMATION
        jmp     exit
  exit:
        invoke  ExitProcess,0

section '.import' import data readable writeable

  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL'

  import  kernel32,\
          GetModuleHandle,'GetModuleHandleA',\
          GetModuleFileName,'GetModuleFileNameA',\
          CreateFile,'CreateFileA',\
          SetFilePointer,'SetFilePointer',\
          ReadFile,'ReadFile',\
          CloseHandle,'CloseHandle',\
          ExitProcess,'ExitProcess'

  import  user32,\
          MessageBox,'MessageBoxA'

В архиве проект делфи, который дописывает текст в хвост ехешника
И уже скомпиленная асмовская прога с хвостом (с расширением тхт) как пример

(ногами не бить, кодилось всё минут 20 но работает вроде )

[Master-Skull]

Вопрос: репутацию повышать можно? =) А то я не нашёл

[JTG]

Гг, слева от восклицательного знака в посте, вроде, если это оно

[Master-Skull]

Слух, вылажи свой FASM или библиотеку win32axp.inc. Тот, что я откопал на харде, еле фурычит. Попытался найти в Масме32 и Тасме, чтоб переделать - глушь

[Master-Skull]

Блин, чё делать FASM 1.67 не видит инклуды! Всё в папке, а не один из win32* include не видит и говорит что их нет!?

[JTG]

Дежа вю
В файле Fasmw.ini добавь

[Environment]
include=D:\low\fasmw167\include

путь естес-но подкорректировать под свой

[Master-Skull]

я не пользуюсь FASMW, поэтому пришлось поэксперементировать и помогло: я просто добавил переменную среды %include% с путём к папке инклудов. И свой AsmEditor написал который так и назвал "AsmEditor" =). Если кому нада, могу выложить.
Да, подскажите, как на дельфях направить вывод консольки на себя. При CreateProcess помимо всех остальных изменений установить флаг исользования STD хендлов и указать их, но вот чей хендл указывать? Если предположим выводить в мемо?
Можно конечно, перекомпилить чтоб FASM всё писал в файл, но природная лень...