Delphi¶¯Ì¬Êý×鸳ֵ³ö´í
³ÌÐòÀï´´½¨ÁËÒ»¸ö¶¯Ì¬Êý×飬ÿ¸öÔªËØÓÐÁ½¸ö×Ö¶ÎInformationºÍKey
¸øÕâ¸öÊý×éÀïÔªËØ¸³ÖµÊ±·¢ÏÖ£ºÏ±êΪżÊýµÄÔªËØ¶Ôinformation¸³ÖµÕý³££¬¶øÏ±êÎªÆæÊýµÄÔªËØ¶Ôinformation¸³Öµ¾Í³ö´í£¬ÌáʾΪinacessible value¡£µ«¶Ôkey×ֶθ³ÖµÒ»ÇÐÕý³£¡£
°Ù˼²»µÃÆä½â£¬Íû¸÷λ´óϺ°ïæ¿´¿´ÊÇʲôÎÊÌ⣬¸ÃÔõôÐ޸쬲»Ê¤¸Ð¼¤£¡
´úÂëÈçÏ£¬Ö»ÐèÒª°ïæ¿´¿´ÊäÈëµÄ²¿·Ö£¬ÅÅÐòµÄ²¿·Ö¾Í²»Óÿ´ÁË¡£È«²¿µÄproject¿ÉÒÔµ½Ftp£º//public.sjtu.edu.cnÉÏÏÂÔØ£¬Óû§Ãû plyjswx ÃÜÂëpublic
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
Index=0..MaxInt;
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Edit1OnKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2OnKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
&
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......