89 ソース4 Application.Initialize; Application.CreateForm(TfrmMain, frmMain); Application.ShowMainForm := False; // ( 追加) メイン フォームを表示しない Application.Run; ソース5 Option Explicit Private Sub CommandButton1_Click() Dim objAS400Info As Object '---- 得意先情報取得オブ ジェクト Dim lngCustNo As Long '---- 得意先コード ' 得意先情報取得オブジェクトの生成 Set objAS400Info = CreateObject("AS400Info. AS400Infomation") ' 取引先コードのセット lngCustNo = ActiveSheet.Range("C2").Value objAS400Info.CustNo = lngCustNo ' データの取得( メソッドの実行） objAS400Info.GetData ' 取得した得意先名のセット ActiveSheet.Range("C7").Value = objAS400Info. CustName ' オブジェクトの解放 Set objAS400Info = Nothing End Sub ソース6 procedure TForm1.Button1Click(Sender: TObject); var sURLText: String; begin // URL 文の作成 sURLText := 'http://search.post.japanpost.jp/cgi-zip/ zipcode.php?zip='; sURLText := sURLText + Edit1.Text; // 問い合わせを実行し、結果をWebBrowser コンポーネン トに表示 WebBrowser1.Navigate(sURLText); end; ソース7 uses HTTPApp; // HTTPApp ユニットを追加する procedure TForm1.Button1Click(Sender: TObject); var sURLText: String; begin // URL 文の作成 sURLText := 'http://www.google.co.jp/ search?num=30&q='; sURLText := sURLText + HTTPEncode(AnsiToUtf8(Edit1. Text)); // 問い合わせを実行し、結果をWebBrowser コンポーネン トに表示 WebBrowser1.Navigate(sURLText); end;