delphi android 获得锁屏状态

用Delphi开发一个程序，在服务端（受制端）锁屏状态下控制端如何实现监控和操作？~

VNC可以实现这个功能, 个人感觉应该是在驱动级实现的, 这个是开源项目 有时间可以看看

最简单的方法，不用写代码，利用 windows 的屏保系统实现。

将自己的 *.exe 文件改为 *.scr
将 *.scr 拷贝到 c:\windows\system32 下（增加一个屏保程序）
设置屏保的时间系数（桌面空白右键-属性-屏保设置-确定）

好久没写过博客咯！瞎忙的不得了！整来整去没整出个正经东西，目前自己实现的电子病历已经投入使用，功能还不全面，很弱，质控以及标准化都还没去细整，平时业余的时间一个人整，还真是没那么多的时间与精力去一一的细化！哎，只能慢慢的来吧！年初整了个小米手机，功能上还是不错的，不像某些人说的那么垃圾，总之我用的还是很不错的。各种游戏，神马的跑动起来小意思，流畅狠。今天要整的主题就是手机上的一个功能了，直接给搬运到Delphi上来。那就是手机锁屏之后，开屏的时候，要求咱们输入密码的那个滑动效果输入的控件。想想，整在软件中，用来在客户离开计算机，锁屏的时候还是蛮不错的一种方式，而且一般的图形图像给人的记忆比纯粹的数字文字类的更能让人印象深刻。所以决定将这个东西整到PC上来。
Android的那个锁屏的效果，用过的人应该都知道是个什么效果，也就是横竖各3行，排列成九宫格的效果，然后由用户在上面滑动以此来达到密码输入进而进行解锁和加密的效果。那么首先，俺们可以分析一下，他的具体形成思路，实际上是很简单的，就是一个排列，然后根据滑动产生的内容形成密码来达到解密的目的，那么最主要的就是这个密码和他本身的密码是如何对应解密的，实际上很简单，咱们给他排列的九宫格，都固定好位置
1 2 3
4 5 6
7 8 9
就像这样，排列的给他的位置固定好，然后每一个格子表示一个字符或者说字符串，进而用户滑动的时候，将对应的位置序列进入到一个列表中去保存，然后鼠标放开的时候，那么入队的选择位置进行组合，那么就是对应的密码了，比如
这样的输入就是表示123，如此顺序记录，就可以形成密码了，然后用户进行滑屏录入之后和以前的进行比较就可以知道密码是否正确了，当然我这个组合是相当简单的，如果想要整的复杂，可以给每个顺序位置给定复杂的字符串，这样形成的密码就足够的复杂了！给一般人去看，也是看不明白的。
那么分析清楚了，思路也就简单了，鼠标按下的时候，开始可以滑动形成密码，鼠标按下的第一个点，作为队列的第一个，然后再滑过的就顺序的一一的记录到队列中，鼠标放开的时候，从队列中获取各个顺序位置，组合形成密码然后和原密码比对，判断密码是否正确！源码如下：

{
Delphi实现的类似Android鼠标锁屏效果的控件
作者：不得闲
2012-7-23
}
unit AndroidLockControl;

interface
uses Windows,Classes,SysUtils,Graphics,Controls;

type
TDxLockItem = class
private
r: TRect;
IsEnter: Boolean;
IsChecked: Boolean;
Value: AnsiChar;
FRadio: TPoint;
public
constructor Create;
end;

TInPutPwdEvent = procedure(Sender: TObject;InputPwd: string) of object;
TDxAndroidLock = class(TGraphicControl)
private
FItemSpace: Integer;
FRowCount: Integer;
FColCount: Integer;
FItemRaidio: Integer;
Items: TList;
FUseNum: Boolean;
FPassword: string;
IsDown: Boolean;
LastInItem: TDxLockItem;
PwdItems: TList;
FOnInputPwd: TInPutPwdEvent;
procedure SetItemSpace(const Value: Integer);
procedure SetItemRaidio(const Value: Integer);
procedure SetUseNum(const Value: Boolean);
protected
procedure paint;override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure CalcItemRects;
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
property Password: string read FPassword write FPassWord;
published
property ItemSpace: Integer read FItemSpace write SetItemSpace default 10;
property OnInputPwd: TInPutPwdEvent read FOnInputPwd write FOnInputPwd;
property ItemRaidio: Integer read FItemRaidio write SetItemRaidio default 20;
property UseNum: Boolean read FUseNum write SetUseNum;
end;
implementation
uses pngimage;
{$R LockRc.RES}
var
PngIn,PngOut: TPngImage;
{ TDxAndroidLock }

procedure TDxAndroidLock.CalcItemRects;
var
i,j: Integer;
p: TPoint;
r: TRect;
item: TDxLockItem;
begin
p.Y := FItemRaidio;
for i := 1 to 3 do
begin
p.X := FItemRaidio;
r.Left := p.X - FItemRaidio;r.Top := p.Y - FItemRaidio;
r.Right := p.x + FItemRaidio;r.Bottom := p.Y + FItemRaidio;
for j := 1 to 3 do
begin
item := Items[3*(i-1)+j - 1];
item.Value := AnsiChar(3*(i-1)+j+48);
item.FRadio := p;
item.r := r;
p.X := p.X + FItemRaidio * 2 + FItemSpace;
r.Left := p.X - FItemRaidio;r.Right := p.X + FItemRaidio;
end;
p.Y := p.Y + FItemRaidio * 2 + FItemSpace;
end;
end;

constructor TDxAndroidLock.create(AOwner: TComponent);
var
i: Integer;
begin
inherited;
LastInItem := nil;
PwdItems := TList.Create;
FPassWord := '';
Items := TList.Create;
FItemSpace := 10;
FRowCount := 3;
FColCount := 3;
FItemRaidio := 20;
Width := FItemRaidio * 2 * 3 + FItemSpace * 2;
Height := FItemRaidio * 2 * 3 + FItemSpace * 2;
for i := 0 to 8 do
begin
Items.Add(TDxLockItem.Create);
end;
CalcItemRects;
end;

destructor TDxAndroidLock.Destroy;
begin
while Items.Count > 0 do
begin
TDxLockItem(Items[Items.Count - 1]).Free;
Items.Delete(Items.Count - 1);
end;
PwdItems.Free;
inherited;
end;

procedure TDxAndroidLock.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
IsDown := Button = mbLeft;
if IsDown then
begin
if LastInItem <> nil then
begin
LastInItem.IsChecked := IsDown;
PwdItems.Add(LastInItem);
end;
Invalidate;
end;
end;

procedure TDxAndroidLock.MouseMove(Shift: TShiftState; X, Y: Integer);
var
i: Integer;
p: TPoint;
OldInItem,Item: TDxLockItem;
begin
OldInItem := LastInItem;
p := Point(x,y);
LastInItem := nil;
for i := 0 to items.Count - 1 do
begin
item := Items[i];
if PtInRect(Item.r,p) then
begin
LastInItem := Item;
LastInItem.IsEnter := True;
LastInItem.IsChecked := IsDown;
Break;
end;
end;
if LastInItem <> OldInItem then
begin
if OldInItem <> nil then
OldInItem.IsEnter := False;
if IsDown then
begin
if LastInItem <> nil then
begin
PwdItems.Add(LastInItem);
end;
Invalidate;
end;
end;
end;

procedure TDxAndroidLock.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
i: Integer;
item: TDxLockItem;
Np: string;
begin
IsDown := False;
for i := 0 to items.Count - 1 do
begin
item := Items[i];
item.IsChecked := False;
end;
for i := 0 to PwdItems.Count - 1 do
Np := Np + TDxLockItem(PwdItems[i]).Value;
PwdItems.Clear;
Invalidate;
if Assigned(FOnInputPwd) then
FOnInputPwd(self,Np);
end;

procedure DrawLineArrow(canvas: TCanvas; p1, p2: TPoint);
const
l = 6; //箭头长度
w = 4; //箭头宽度
var
slope, angle: Double;
points: array[0..2] of TPoint;
Xl,b: Single;
begin
canvas.Brush.Color := canvas.Pen.Color;
canvas.Brush.Style := bsSolid;
canvas.MoveTo(p1.X,p1.Y);
canvas.LineTo(p2.X,p2.Y);
if (p2.Y <> p1.Y) and (P2.X <> p1.X) then
begin
xl := (P2.Y - p1.Y) / (P2.X - p1.X);
b := p2.Y - xl * p2.X;
p2.X := (p2.X - p1.X) div 2 + p1.X;
p2.Y := Trunc(p2.X * xl + b);
end
else if p2.Y = p1.Y then
p2.X := (p2.X - p1.X) div 2 + p1.X
else P2.Y := (p2.Y - p1.Y) div 2 + p1.Y;
//画箭头
points[0] := Point(p2.x, p2.y);//箭头顶点
if (p2.x - p1.x = 0) then
begin //垂直
if (p2.y - p1.y > 0) then slope := -1 else slope := 1;
points[1] := Point(p2.x - w, p2.y + Trunc(l * slope));
points[2] := Point(p2.x + w, p2.y + Trunc(l * slope));
end else
begin //倾斜
slope := (p2.y - p1.y) / (p2.x - p1.x);
angle := ArcTan(slope);
if (p2.x - p1.x > 0) then angle := angle - PI;
points[1] := Point(p2.x + trunc(l * cos(angle) - w * sin(angle)),
p2.y + trunc(l * sin(angle) + w * cos(angle)));
points[2] := Point(p2.x + Trunc(l * cos(angle) + w * sin(angle)),
p2.y + Trunc(l * sin(angle) - w * cos(angle)));
end;
canvas.Polygon(points);
end;

procedure TDxAndroidLock.paint;
var
i: Integer;
item,item1: TDxLockItem;
r: TRect;
begin
if not IsDown then
begin
for i := 0 to Items.Count - 1 do
begin
item := items[i];
r.Left := item.FRadio.X - 5;r.Right := item.FRadio.X + 5;
r.Top := item.FRadio.Y - 5;r.Bottom := item.FRadio.Y + 5;
Canvas.Draw(r.Left,r.Top,pngIn);
end;
end
else
begin
//绘制指向线条
Canvas.Pen.Width := 2;
Canvas.Pen.Color := clGreen;
for i := 0 to PwdItems.Count - 2 do
begin
item := PwdItems[i];
item1 := PwdItems[i + 1];
Canvas.MoveTo(item.FRadio.X,item.FRadio.Y);
Canvas.LineTo(item1.FRadio.X,item1.FRadio.Y);
DrawLineArrow(Canvas,item.FRadio,item1.FRadio);
end;
for i := 0 to Items.Count - 1 do
begin
item := items[i];
if item.IsChecked then
begin
Canvas.Draw(item.r.Left,item.r.Top,pngOut);
end;
r.Left := item.FRadio.X - 5;r.Right := item.FRadio.X + 5;
r.Top := item.FRadio.Y - 5;r.Bottom := item.FRadio.Y + 5;
Canvas.Draw(r.Left,r.Top,pngIn);
end;
end;
end;

procedure TDxAndroidLock.SetItemRaidio(const Value: Integer);
begin
FItemRaidio := Value;
end;

procedure TDxAndroidLock.SetItemSpace(const Value: Integer);
begin
FItemSpace := Value;
end;

procedure TDxAndroidLock.SetUseNum(const Value: Boolean);
begin
FUseNum := Value;
end;

{ TDxLockItem }

constructor TDxLockItem.Create;
begin
r := Rect(0,0,0,0);
IsEnter := False;
end;

initialization
PngIn := TPngImage.Create;
PngIn.LoadFromResourceName(Hinstance,'InnerGra');
PngOut := TPngImage.Create;
PngOut.LoadFromResourceName(Hinstance,'Outer');

finalization
PngIn.Free;
PngOut.Free;
end.

运行之后的效果就是

inKeyguardRestrictedInputMode(),
这个好像是可以得到状态的,试试吧,刚学习不久

---

岷县17199865119： delphi 获取设备唯一特征码 - ？
那治必可： 这个问题我之前给ANDROID手机程序做PC客户端项目时遇到并处理过,即用户通过数据线将PC与手机连接,当然需要开启USB调试模式等,就像豌豆荚之类的软件那样,插入USB设备自动检测并区分、识别调用特定功能.再说USB是一个标...

岷县17199865119： Delphi 控制打开设置Android WIFI热点 - ？
那治必可： 1·申请权限: android.permission.ACCESS_WIFI_STATE android.permission.CHANGE_WIFI_STATE android.permission.WAKE_LOCK 2·获取WifiManager wifiManager = (WifiManager) this.getSystemService(Context.WIFI_SERVICE); 3·...

岷县17199865119： delphi android蓝牙4.0开发 - ？
那治必可： 就是串口通讯 安卓系统下 枚举dev目录下的文件 就是安卓的设备列表你可以找找看 其中就有蓝牙设备蓝牙本身是串口通讯 在安卓下 是用读写文件方式就可以收发串口数据.那就需要获取读写权限 但问题是在获取权限后 delphi Xe虽然可以打开文件 但我不知道如何设置波特率. 也没找到资料. 所以我最后的解决办法是 用C写了一个安卓下收发串口的so库文件 然后delphi去调用这个so文件.这样实现了delphi对串口的控制.

岷县17199865119： Delphi怎么开发Android上通过WiFi发送接收数据的app - ？
那治必可： 如果我们需要调试USB程序且Android设备只有一个USB口,那么可以通过WiFi来调试程序,这样USB口就可以用了.大致步骤如下:1.在有root权限的Android设备里安装“Wifi ADB无线调试器”2.通过“Wifi ADB无线调试器”,设置好端口,启动WiFi ADB,假设Android设备IP为192.168.1.109,端口为55553.在Windows下运行CMD,进入sdk\platform_tools目录里,运行adb connect 192.168.1.109:5555,将会显示是否连接成功,连接成功后,在Delphi的工程管理器下的Target里便可以看到设备了.

岷县17199865119： 程序员英语培训哪个好学 ？
那治必可： 大方向很多,小方向也很多,所以要根据自己的对口选择合适自己的才是最重要的如... 精通一种可视化平台及其软件开发技术.获取Delphi程序员系列、Java初级或VB开发...

岷县17199865119： Delphi获取图像分辩率在VC中,Image类的Horizon ？
那治必可： 例如,image1.Picture.Width image1.Pictrue.Height

岷县17199865119： delphi andriod 签名 在哪 - ？
那治必可： 要发布android应用,必须做签名的.看一下具体的操作步骤:1.进入Project-Options:2.打开Options窗口,选择Provisioning,在这里,可以为目标平台选择签名文件,也可生成新的签名文件.2.1 选择目标平台,可以为dubug或release设置签名...

岷县17199865119： 如何用Delphi XE Android实现手机和wifi串行口模块通信 - ？
那治必可： uses System.SysUtils, Androidapi.Helpers, Androidapi.JNIBridge, Androidapi.Jni.Net, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes, FMX.Helpers.Android;function GetWIFIIP:string;varWFM:JObject;WifiManager:...

岷县17199865119： 我要在网吧双开,请提供软件下载地址 ？
那治必可： 双开有两种: 1.用辅助软件如collg.搜索一下就能找到的. 2.如果你的系统是xp,那可以通过切换用户登录来实现.不过电脑配置高才行,否则会死机 以上两种,最好还是别用.老老实实做任务练级吧.因为完美时空对使用双开好像也开始封帐号了.不划算.还有第一种网站上下载的东西极有可能捆绑了木马等病毒.所以自己斟酌一下吧.况且你说还是在网吧双开.我觉的还是算了吧.否则辛苦白费别怪我没提醒你哦.呵呵.

岷县17199865119： 请问OOP面向对象的编程要注意什么内容? ？
那治必可： OOP面向对象的编程,如果要提高程序的复用率,增加程序的可维护性,可扩展性,就必须是面向接口的编程,面向抽象的编程,正确地使用接口、抽象类这些太有用的抽象类型做为java结构层次上的顶层