關於部落格
除了忙與盲之外,也要停下來想一想、看一看... 建議使用 FireFox 或 IE7 以上版本瀏覽。
使用 IE6 若看不到網頁請留個言唷








☞ 網誌分類列表 ☜

※ 網誌分類列表 ※
  自製軟體
  程式語言
  ├ 程式語言.BCB
  └ 程式語言.C#
  應用軟體
  └ MSN
  網站架設
  └ 部落軌道
  Ubuntu
  電腦硬體
  遊戲育樂
  日常生活
  └ 乾癬
  網路硬碟
 ◎不分類網誌列表◎ 





jQuery(document).ready(function(){
jQuery("#boxVisit a[class!='boxVisitSelf'],#boxRecommend a,#boxRecommended a").unbind('click');
jQuery("#boxVisit a[class!='boxVisitSelf'],#boxRecommend a,#boxRecommended a").click(function(){
window.open(this.href);return false;
}).attr('target','');
});



function toggle() {
var ele = document.getElementById("chromemenu");
var text = document.getElementById("displayText");
if(ele.style.display == "block") {
ele.style.display = "none";
text.innerHTML = "☞ 顯示工具列 ☜";
}
else {
ele.style.display = "block";
text.innerHTML = "☞ 隱藏工具列 ☜";
}
}


☞ 顯示工具列 ☜
  • 756158

    累積人氣

  • 6

    今日人氣

    14

    追蹤人氣

貼程式碼 CSS/網誌 修改中...

2009-02-18

測試預設底線 u
測試底線 uyellow
測試底線 ugreen
測試底線 upink
測試底線 wyellow
測試底線 wgreen
測試底線 wpink

2009-02-19

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <ATLATLbase.h>
#include <ComObj.hpp>
#include "testingDCOMUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  System::WideString MachineName=Edit1->Text;
  GUID ClassID={0x24462F18, 0xFCA6, 0x4F92,{ 0x8D, 0x1B, 0xAD, 0x56, 0xE3, 0xA0, 0x55, 0x2D} };
  _di_IUnknown test;
  try
  {
    test=CreateRemoteComObject(MachineName , ClassID );
  }
  catch(Exception &E)
  {
    ShowMessage("Class="+AnsiString(E.ClassName())+"nMessage="+ E.Message);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  System::WideString MachineName=Edit1->Text;
  GUID ClassID={0x709BE49E, 0x8EDB, 0x4B95,{ 0xBE, 0x0B, 0xC5, 0x23, 0x6B, 0x65, 0xD3, 0xFA} };
  _di_IUnknown test;
  try
  {
    test=CreateRemoteComObject(MachineName , ClassID );
  }
  catch(Exception &E)
  {
    ShowMessage("Class="+AnsiString(E.ClassName())+"nMessage="+ E.Message);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  System::WideString MachineName=Edit1->Text;
  GUID ClassID={0xFC7E2AE4, 0x925F, 0x4C2B,{ 0xB8, 0x23, 0x26, 0xD1, 0x35, 0xA3, 0xA9, 0x42} };
  _di_IUnknown test;
  try
  {
    test=CreateRemoteComObject(MachineName , ClassID );
    IDispatch itest=test;
    itest.GetTypeInfoCount
    .GetIDsOfNames(
    CComPtr<IUnknown> punk1;
		test->QueryInterface(IID_IUnknown, (void**)&punk1);
  }
  catch(Exception &E)
  {
    ShowMessage("Class="+AnsiString(E.ClassName())+"nMessage="+ E.Message);
  }  
}
//---------------------------------------------------------------------------


測試結果,在貼上程式碼時,只能使用
一般編輯器 同時必需把自動斷行設定為
如果再次編輯,編輯網頁使用進階編輯器時,必需先切回
一般編輯器 同時必需把自動斷行設定為
再繼續編輯,以免貼好的程式碼大亂 (全部變成只有一行)...
相簿設定
標籤設定
相簿狀態