[Anton93]

Всем здрасте) подскажите что делаю не так.
Пишу код который сканирует, все логические диски, а затем выводит сообщение о найденных файлах пользователю.

Процедура CreateWindow, я подписал, это создания формы и вывод информации о найденных файлах. Но после того как поиск завершен форма, промелькнет на доли секунды и пропадает, то есть даже не выводит всю информацию. Как исправить, чтобы она не пропадала, что делаю не так?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure FindDrive; var   DiskList: DWORD;   Drive: Char; begin   DiskList := GetLogicaldrives;   Drive := 'a';     while (DiskList > 0) do       begin         case GetDriveType(Pchar(Drive + ':\')) of           3: FindFile(Drive + ':\');         end;       Disklist := Disklist shr 1;       Inc(Drive);     end;    CreateWindow;//Процедура создания и отображения формы WINAPI end;

P.S. А в процессах остается висеть, убирать приходится через taskmgr.

[Alegun]

Возможно, что ваша форма - не главная в сборке, после создания она видимо скрывается, попробуйте добавить после этого ещё и form.show(modal)

[M.A.D.M.A.N.]

Скорее всего кривое использование WinAPI.

[Anton93]

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

Код:

1 2 3 4

var ThID: DWORD; ... BeginThread(nil, 0, @FindDrive, nil, 0, ThID);

то есть запуск просто цикла поиска, форма в конце появляется без проблем а в потоке лишь мелькает. Как эту задачу решить? Без потока нельзя, чтобы не было зависания.

[icWasya]

Во первых, посмотри в msdn, какую сигнатуру должна иметь процедура, передаваемая третьим параметром в BeginThread.

[Anton93]

какой параметр нужно передавать?

Код:

1	BeginThread(nil, 0, @FindDrive, здесь передаешь нужный указатель для обращению к нему из потока, 0, ThID);

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure FindDrive; var   DiskList: DWORD;   Drive: Char; begin   DiskList := GetLogicaldrives;   Drive := 'a';     while (DiskList > 0) do       begin         case GetDriveType(Pchar(Drive + ':\')) of           3: FindFile(Drive + ':\');         end;       Disklist := Disklist shr 1;       Inc(Drive);     end;    CreateWindow;//Процедура создания и отображения формы WINAPI end;

Посоветовали из процедуры procedure FindDrive; сделать функцию,

Код:

1	function FindDrive(Param: Pointer): Integer;

вобще запутался, помогите кто знает

[M.A.D.M.A.N.]

Код:

1	function trheadproc(p: pointer): cardinal; stdcall

[Anton93]

Сообщение от M.A.D.M.A.N.

Код:

что это? а точнее переменные откуда их брать?

[M.A.D.M.A.N.]

это так должна выглядеть ф-я, которая передается в createthread

[NumLock]

всегда было

Код:

1 2 3 4 5 6 7 8 9

Classes function ThreadProc(Thread: TThread): Integer; var   FreeThread: Boolean; begin {$IFDEF LINUX}   if Thread.FSuspended then sem_wait(Thread.FCreateSuspendedSem); {$ENDIF}   try

мы же в Паскале! и даже MSDN ни при чем