C++ Builder - вопросы программирования



         

Листинг 10 13



Листинг 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; }
 











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