В функцию ShellExvte надо передать

Листинг 10.13.

Модуль формы О программе (saper2_.cpp) #include <vcl.h>
#pragma hdrstop #include "saper_2.h" #pragma package(smart_init) #pragma resource "*.dfm" TAboutForm *AboutForm; __fastcall TAboutForm::TAboutForm(TComponent* Owner) : TForm(Owner) { } // Выбор URL-адреса void __fastcall TAboutForm: :Label5Click(TObject *Sender) { /*  В функцию ShellExvte надо передать указатель на null terminated строку (char*). Свойство Caption — это AnsiString. Преобразование Ansi-строки в указатель на nt-строку выполняет метод c_str() */ //, открыть файл, имя которого находится в поле Labels ShellExecute (AboutForm->
Handle,"open",Label5->
Caption.c_str(), NULL,NULL,SW_RESTORE);
} // щелчок на кнопке QK void __fastcall TAboutForm::ButtonlClick(TObject *Sender) { ModalResult = mrOk; }

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---