Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2012, 22:57   #1
Алексейчик
Новичок
Джуниор
 
Регистрация: 20.12.2012
Сообщений: 2
По умолчанию Исправить ошибку на проге Delphi

Здравствуйте уважаемые. Возникла такая проблема. Написал програмку. Запускается. Прописывается в автозагрузку. Текст который в самой программе подгружается из отдельного файла text.txt и winlock.ini ( :-) )
Так вот. После перезагрузки компьютера прога не может подгрузить файл text.txt . А название кнопок и блоков из файла ini подгружаются. Исправьте код пожалуйста)
Код:
Uses


{$R *.RES}

begin
{
00412334   55                     push    ebp
00412335   8BEC                   mov     ebp, esp
00412337   83C4F0                 add     esp, -$10
0041233A   33C0                   xor     eax, eax
0041233C   8945F0                 mov     [ebp-$10], eax
0041233F   B8D4214100             mov     eax, $004121D4

* Reference to: SysInit.Proc_00404854
|
00412344   E80B25FFFF             call    00404854
00412349   33C0                   xor     eax, eax
0041234B   55                     push    ebp
0041234C   68DC234100             push    $004123DC

***** TRY
|
00412351   64FF30                 push    dword ptr fs:[eax]
00412354   648920                 mov     fs:[eax], esp
00412357   8D55F0                 lea     edx, [ebp-$10]
0041235A   B801000000             mov     eax, $00000001

* Reference to: Unit_00404E48.Proc_00406378
|
0041235F   E81440FFFF             call    00406378
00412364   8B45F0                 mov     eax, [ebp-$10]

* Possible String Reference to: '/ih'
|
00412367   BAF0234100             mov     edx, $004123F0

* Reference to: System.Proc_004032BC
|
0041236C   E84B0FFFFF             call    004032BC
00412371   7518                   jnz     0041238B
00412373   6A00                   push    $00

* Possible String Reference to: 'HiAsm Info'
|
00412375   68F4234100             push    $004123F4

* Possible String Reference to: 'Сделано в HiAsm.'
|
0041237A   6800244100             push    $00412400
0041237F   6A00                   push    $00

* Reference to: user32.MessageBoxA()
|
00412381   E8C228FFFF             call    00404C48

* Reference to: System.Proc_00402EE8
|
00412386   E85D0BFFFF             call    00402EE8
0041238B   B201                   mov     dl, $01

* Reference to class TClassMainForm_9B0F290
|
0041238D   A118114100             mov     eax, dword ptr [$00411118]

* Reference to: Unit_00411118.Proc_0041117C
|
00412392   E8E5EDFFFF             call    0041117C

* Reference to pointer to GlobalVar_004145B0
|
00412397   8B1590344100           mov     edx, [$00413490]
0041239D   8902                   mov     [edx], eax

* Reference to pointer to GlobalVar_004145B0
|
0041239F   A190344100             mov     eax, dword ptr [$00413490]
004123A4   8B00                   mov     eax, [eax]

* Reference to field GlobalVar_004145B0.OFFS_0004
|
004123A6   8B4004                 mov     eax, [eax+$04]

* Reference to: Unit_0040C3A8.Proc_0040CBA4
|
004123A9   E8F6A7FFFF             call    0040CBA4

* Reference to pointer to GlobalVar_004144F0
|
004123AE   A198344100             mov     eax, dword ptr [$00413498]

* Reference to: Unit_00404E48.Proc_004053B4
|
004123B3   E8FC2FFFFF             call    004053B4

* Reference to pointer to GlobalVar_004145B0
|
004123B8   A190344100             mov     eax, dword ptr [$00413490]
004123BD   8B00                   mov     eax, [eax]
004123BF   B201                   mov     dl, $01
004123C1   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TGlobalVar_004145B0.OFFS_04
|
004123C3   FF51FC                 call    dword ptr [ecx-$04]
004123C6   33C0                   xor     eax, eax
004123C8   5A                     pop     edx
004123C9   59                     pop     ecx
004123CA   59                     pop     ecx
004123CB   648910                 mov     fs:[eax], edx

****** FINALLY
|
004123CE   68E3234100             push    $004123E3
004123D3   8D45F0                 lea     eax, [ebp-$10]

* Reference to: System.Proc_00403034
|
004123D6   E8590CFFFF             call    00403034
004123DB   C3                     ret


* Reference to: System.Proc_00402B30
|
004123DC   E94F07FFFF             jmp     00402B30
004123E1   EBF0                   jmp     004123D3

* Reference to: System.Proc_00402EE8
|
004123E3   E8000BFFFF             call    00402EE8
004123E8   FFFF                   DB  $FF, $FF  //      
004123EA   FFFF                   DB  $FF, $FF  //      
004123EC   0300                   add     eax, [eax]
004123EE   0000                   add     [eax], al

}
end.

текст для файла text.txt
Код:
Любой текст тут может быть написан.
текст для файла Winlock.ini
Код:
[Winlock]
Tittle=Название вашей программы
Label=Надпись над полем ввода
Edit=Сюда вводить число из поля password 
Button=Кнопка подтверждения
Password=1
Update И ребят... можете пожалуйста дописать такой код что при правильном пароле удалялись файлы , которые будут указаны в коде. Т.е я сам напишу прямо в коде те файлы которые мне нужно удалить

Последний раз редактировалось Алексейчик; 21.12.2012 в 15:21. Причина: Дописал просьбу)
Алексейчик вне форума Ответить с цитированием
Старый 20.12.2012, 23:09   #2
Lime
Форумчанин
 
Аватар для Lime
 
Регистрация: 10.02.2009
Сообщений: 815
По умолчанию

Винлоки это почетно!
Lime вне форума Ответить с цитированием
Старый 20.12.2012, 23:11   #3
Алексейчик
Новичок
Джуниор
 
Регистрация: 20.12.2012
Сообщений: 2
По умолчанию

Да ладно уж) а если по теме?))
Алексейчик вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
исправить ошибку в проге на GPSS ICEBERG14 Помощь студентам 0 20.12.2012 22:22
исправить ошибку в проге! Volchitsa Помощь студентам 0 31.05.2012 16:09
Найдите ошибку в проге(Delphi)!!! Npwas Помощь студентам 6 05.01.2012 19:51
найти ошибку в проге на Delphi Serjik-ahaha Помощь студентам 15 03.07.2011 13:11
Как исправить ошибку в проге VBA grinder Microsoft Office Excel 5 23.06.2010 09:57