Проблема с показом формы

[Anton931]

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

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

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.

[Вадим Мошев]

Я бы просто выводил всю информацию на дополнительную форму. Об этих формах написано здесь: http://www.delphi-manual.ru/lesson8.php

[Anton931]

Сообщение от Вадим Мошев

Я бы просто выводил всю информацию на дополнительную форму. Об этих формах написано здесь: http://www.delphi-manual.ru/lesson8.php

что то я вас не понял. Зачем выводить на дополнительную, если основная создается динамически.

[min@y™]

самое интересное-то зажал. а-ну показывай кишки функции CreateWindow()!

[Anton931]

Сообщение от min@y™

самое интересное-то зажал. а-ну показывай кишки функции CreateWindow()!

ну почему же сразу зажал, стандартная процедура создания окна winapi

procedure CreateWindow;
begin
  FillChar(WC, SizeOf(TWndClassEx), 0);
  WC.lpszClassName := 'Window';
  WC.lpfnWndProc := @WndProc;
  WC.hbrBackground := COLOR_MENUTEXT;
  WC.hCursor := LoadCursor(0, IDC_ARROW);
  RegisterClass(WC);
  hWindow := CreateWindowEx(0,
  'Window',
  'File Report',
  WS_VISIBLE or WS_POPUP,
  100,
  100,
  300,
  500,
  0,
  0,
  hInstance,
  nil);
  ShowWindow(hWindow, 5);
  UpDateWindow(hWindow);
end;

[min@y™]

стандартная процедура создания окна winapi

это неправда. у стандартной - куча параметров.

HWND WINAPI CreateWindow(
  _In_opt_ LPCTSTR   lpClassName,
  _In_opt_ LPCTSTR   lpWindowName,
  _In_     DWORD     dwStyle,
  _In_     int       x,
  _In_     int       y,
  _In_     int       nWidth,
  _In_     int       nHeight,
  _In_opt_ HWND      hWndParent,
  _In_opt_ HMENU     hMenu,
  _In_opt_ HINSTANCE hInstance,
  _In_opt_ LPVOID    lpParam
);

Покажи основную петлю обработки сообщений.
на до ж понять, почему окно пропадает.
под отладчиком-то гонял?

[Anton931]

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

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

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

[Aliens_wolfs]

прерывание попробуйте sleep

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

[min@y™]

а чем обосновано создание проги на чистом API?
учебная задача а-ля "натыкал-сдал-забыл"?

[Anton931]

задача, учебная, основанная на работу с потоками. API это дань уважению, современный VLC сплошной мусор из непонятных добавлений, ненужной информации в приложения.

Код потока, в потоке выполняется код указанный ниже:

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;
...
BeginThread(nil, 0, @FindDrive, nil, 0, ThID);