| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поток. Выскакивает сообщение A Win32 API functuion failed

DIV ©   (2002-11-28 08:44:00) 

Написал диспетчер с 1 потоком.
Поток был нужен чтобы обработать нажатие клавиши прекращения обработки.
При выходе из программы По требованию (использую Application.Terminate)
получаю сообщение: Project Disp.exe exception class EWin32Error message "A Win32 API functuion failed". Process stopped.
И вижу это приложение в памяти.

Вот шапка исходника:

{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
unit Obr;

interface

uses
Classes,Basa,Windows,SysUtils,FileCtrl;

type
MyObr = class(TThread)

и т.д.

---

SPeller   (2002-11-28 12:57:00) [1]

Ты сначала проследи на какой строке ошибка вылетает, проверь всё, и если ничего не найдёшь, то код сюда и тогда посмотрим чего у тебя не так. Мы ведь не телепаты знать чего у тебя там.

---

DIV   (2002-11-28 11:19:00) [2]

А как им пользоваться ?

---

Игорь Шевченко   (2002-11-28 11:10:00) [3]

Отладчик, дружище, отладчик в руки!

---

DIV   (2002-11-28 09:59:00) [4]

расшифровываю и т.д.

private
{ Private declarations }
protected
procedure Execute; override;
procedure P_err;
procedure Obr_f;
procedure Fil_obr;
procedure Mask_R;
procedure Del_FDir(dir :String);
function RunAppAndWait(CmdLine: String):boolean ;
procedure FileCopy(Const SourceF, TargetF: String );
Procedure FileDel( Const SourceF: String );
Procedure Work_F;
{Procedure StopW;}
end;

var
sr: TSearchRec;
s3,p_vx,p_vix:string;
l1,j:integer;

implementation
uses work;


{ MyObr }

procedure MyObr.Execute;
begin
try
while l_1<>2 do Work_f;
finally
FindClose(sr);
end;
end;

------- Этого хватит ?

---

Набережных С.   (2002-11-28 09:15:00) [5]

Ошибка в строке "и т.д."

---

Наверх