dllee 的 Blog

我的 blog 目前在天空

2008-11-16T19:13:00.000+08:00

我的 Blog 在天空喔 http://blog.yam.com/dllee 歡迎您來坐坐 ^^

dllee -- 李棟樑的 Blog: 直接使用 code pre 的效果

2007-08-28T22:04:00.000+08:00

dllee -- 李棟樑的 Blog: 直接使用 code pre 的效果 Test

直接使用 code pre 的效果

2005-09-11T22:29:00.000+08:00


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

#ifndef StatPlusTimeUpUnitH
#define StatPlusTimeUpUnitH
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include 
#include 
#include 
//---------------------------------------------------------------------------
class TFormStatPlusTimeUp : public TForm
{
__published: // IDE-managed Components
  TLabel *Label;
  TTimer *Timer1;
  TTimer *Timer2;
  void __fastcall FormKeyPress(TObject *Sender, char &Key);
  void __fastcall Timer1Timer(TObject *Sender);
  void __fastcall FormShow(TObject *Sender);
  void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  void __fastcall Timer2Timer(TObject *Sender);
private: // User declarations
  char KeyString[256];
  unsigned char  KeyCount;
public:  // User declarations
  __fastcall TFormStatPlusTimeUp(TComponent* Owner);
  AnsiString DefaultMessage;
  AnsiString Password;
  POINT      LastMousePos;
  bool       CanCloseNow;
};
//---------------------------------------------------------------------------
extern PACKAGE TFormStatPlusTimeUp *FormStatPlusTimeUp;
//---------------------------------------------------------------------------
#endif

所有 include 的部分都不見了 :(

測試格式範本

2005-09-11T22:17:00.000+08:00

要測試文件範本，貼一些程式碼來看看效果如何？ C2html 的工具來處理:


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



#include <vcl.h>

#pragma hdrstop



#include "StatPlusTimeUpUnit.h"

#include "StatPlusAPI.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormStatPlusTimeUp *FormStatPlusTimeUp;

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

__fastcall TFormStatPlusTimeUp::TFormStatPlusTimeUp(TComponent* Owner)

  : TForm(Owner)

{

  this->DoubleBuffered=true;

  DefaultMessage="時間到了! 換人了!\n\nㄕˊ ㄐㄧㄢ ㄉㄠˋ ˙ㄌㄜ!\n\nㄏㄨㄢˋ ㄖㄣˊ ˙ㄌㄜ!\n\n";

  this->Label->Caption=DefaultMessage;

  KeyCount=0;

  CanCloseNow=true;

}

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

void __fastcall TFormStatPlusTimeUp::FormKeyPress(TObject *Sender,

      char &Key)

{

  if(Key==0x1B)       // Esc

  {

    KeyCount=0;

    this->Label->Caption=DefaultMessage;

  }

  else if(Key==0x08)  // BackSpace

  {

    if(KeyCount!=0) KeyCount--;

    this->Label->Caption=DefaultMessage+AnsiString::StringOfChar('*', KeyCount);

  }

  else if(Key==0x0D)  // Enter

  {

    if(Password==AnsiString(KeyString,KeyCount))

    {

      Timer2Timer(Sender);  // Close

    }

    KeyCount=0;

    this->Label->Caption=DefaultMessage;

  }

  else                // 一般字元

  {

    KeyString[KeyCount]=Key;

    KeyCount++;

    this->Label->Caption=DefaultMessage+AnsiString::StringOfChar('*', KeyCount);

  }

}

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

void __fastcall TFormStatPlusTimeUp::Timer1Timer(TObject *Sender)

{ // 每 50mS 把視窗設為前景並設定一次滑鼠位置

  Application->BringToFront();

  ApplicationSetTopMost();

  SetCursorPos(Screen->Width/2,8);

  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

}

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

void __fastcall TFormStatPlusTimeUp::FormShow(TObject *Sender)

{

  GetCursorPos(&LastMousePos);

  Timer1->Enabled=true;

  Timer2->Enabled=true; // 最多等 10 分鐘就關閉

  CanCloseNow=false;    // 無法按 Alt+F4

}

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

void __fastcall TFormStatPlusTimeUp::FormCloseQuery(TObject *Sender,

      bool &CanClose)

{

  CanClose=CanCloseNow;

}

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

// 最多不讓使用者操作 10 分鐘，以免無法回到正常畫面

void __fastcall TFormStatPlusTimeUp::Timer2Timer(TObject *Sender)

{

  this->Timer1->Enabled=false;

  this->Timer2->Enabled=false;

  CanCloseNow=true;

  ApplicationClearTopMost();

  WindowClearTopMost(this->Handle);

  Close();

  Application->MainForm->Show();

  SetCursorPos(Application->MainForm->Left+100,Application->MainForm->Top+20);

}

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

效果不理想...

This is my first blog :D

2005-01-05T22:25:00.000+08:00

這是我的第一個 Blog :D 個人網站 http://free.greenworld.com.tw/~dllee/ This is my first blog :D My website is http://dllee.ktop.com.tw 「吃軟也吃硬」in Chinese BIG5