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

← →
DIV © (2002-11-28 08:44) [0]

Написал диспетчер с 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)

и т.д.

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

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

← →
DIV © (2002-11-28 09:59) [2]

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

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 11:10) [3]

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

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

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

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