Вопросы по WinApi... Опции

[Snake_B]

"Вопросы по WinApi..."

Ковыряюсь во всяких справочниках... чего то ни фига не получается...
Если кто может подскажите, как сделать или где поглядеть пример...

1. CreateWindow ( 'STATIC', text', WS_CHILD or WS_VISIBLE, 30, 8, 500, 80, handleWnd, 0, hInstance, nil );
* как задать ему цвет
* сделать вертикальный скролл
* изменить шрифт (размер, цвет и сам шрифт)

2. Загрузить и показать рисунок (bmp и jpg)...

3. Изменить цвет border color...

4. обработка нажатия кнопки...

лучше всего пример...

[volvo]

После показа messageBox'а скрывается основная форма... а это не нужно...

Естественно... Окно получает сообщение WM_DESTROY тогда, когда уже не может отменить закрытие, ты отменяешь только уничтожение окна... Закрывается оно еще перед вызовом MessageBox-а... Тебе надо обрабатывать WM_CLOSE, чтоб иметь возможность отменять закрытие окна:

    WM_CLOSE:
    begin
      // если все-таки хочешь выйти, значит удалить-таки окно: DestroyWindow
      if MessageBox(handleWnd, 'Подтверждение...', 'хотите выйти ?',
        MB_OKCANCEL + MB_ICONASTERISK + MB_SYSTEMMODAL) = IDOK then DestroyWindow(handleWnd);
    end;

[Snake_B]

Естественно... Окно получает сообщение WM_DESTROY тогда, когда уже не может отменить...

С этим понятно...
Вот пытаюсь тут по FAQ (drkb), статья: "Сохранение и выдёргивание ресурсов в DLL или EXE? "
сохранить ресурс в exe... ресурс создал, в exe он судя по размеру тоже добавляется,
а когда пытаюсь его извлечь выдает: "Resourse 1 not found"

procedure ExtractToFile(Instance:THandle; ResID:Integer; ResType, FileName:String);
var ResStream: TResourceStream; FileStream: TFileStream;
begin
  try ResStream := TResourceStream.CreateFromID(Instance, ResID, pChar(ResType));
    try if FileExists(FileName) then DeleteFile(pChar(FileName));
        FileStream := TFileStream.Create(FileName, fmCreate);
    try FileStream.CopyFrom(ResStream, 0); finally
        FileStream.Free; end;
    finally ResStream.Free; end;
  except on E:Exception do begin
      DeleteFile(FileName); raise;
end; end; end;

...
ExtractToFile(handleW1, 1, 'CUSTOM', ExtractFiledir(paramStr(0))+'/Source SMP/LogoSI.bmp');

p.s. вот тут файлик прикрепляю... так создаю и извлекаю..
всё тоже: "Resourse 1 not found"
чего не так?

Сообщение отредактировано: Snake_B - 15.05.2008 22:21