先前寫的可以在windows任何平台看*的程式碼

[psac]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Timer1: TTimer;
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
str: array[0..19] of char;
{$R *.dfm}
function IsNT: Boolean;
var
OSVersionInfo: TOSVersionInfo;
begin
OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
GetVersionEx(OSVersionInfo);
if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
Result := True
else
Result := False;
end;
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
setcapture(handle);
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
p1, p2: Tpoint;
begin
p1.X := x;
p1.Y := y;
p2 := clienttoscreen(p1);
edit1.Text := inttostr(p2.X);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
p: Tpoint;
hd: HWND;
l,passmark,count: integer;
begin
GetCursorPos(p);
hd := WindowFromPoint(p);
if not isNt then
begin
l:=sendmessage(hd,WM_GETTEXTLENGTH,0,0);
sendmessage(hd,WM_GETTEXT,l+1,integer(@str));
end
else
begin
l:=sendmessage(hd,WM_GETTEXTLENGTH,0,0);
sendmessage(hd,WM_GETTEXT,l+1,integer(@str));
passmark := sendmessage(hd, em_getpasswordchar, 0, 0);
if passmark <> 0 then
begin
postmessage(hd, em_setpasswordchar, 0, 0);
count := sendmessage(hd, wm_gettext, 100, lparam(@hd));
//postmessage(hd, em_setpasswordchar, wparam(ord(『*『)), 0);
sendmessage(hd, em_setpasswordchar, wparam(ord(『*『)), 0);
sendmessage(hd,em_setpasswordchar, count+1,integer(@str));
end;
end;
edit1.Text := str;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//str:= new(pchar);
end;
end.

作 者：xhonghui

??看不太懂~

我也看的"霧霧煞煞"

是幹碼??做啥用的??

[Dreamcast]

請問這是哪種語言的程式碼呢 ?

[poss]

先前寫的可以在視窗任何平台看* 的程式碼


裝置 Unit1;
介面
使用
Windows ，訊息， SysUtils ，變體，類別，圖形，管制，表格,
會話， StdCtrls,ExtCtrls;
型態
TForm1=類別 (TForm)
Edit1: TEdit;
Timer1: TTimer;
程序 Label1MouseDown(發貨人: TObject; 按鈕: TMouseButton;
漂移: TShiftState; X,Y: 整數);
程序 Label1MouseUp(發貨人: TObject; 按鈕: TMouseButton;
漂移: TShiftState; X,Y: 整數);
程序 Label1MouseMove(發貨人: TObject; 漂移: TShiftState; X,
Y: 整數);
程序 Timer1Timer(發貨人: TObject);
程序 FormCreate(發貨人: TObject);
私人的
{ 私人的申報 }
民眾
{ 公眾的申報 }
結束;
變容體
Form1: TForm1;
實施
變容體
str: 陣列[0.。零碎工作的 19];
{$ R*.dfm}
運作 IsNT: 布爾體系的;
變容體
OSVersionInfo: TOSVersionInfo;
開始
OSVersionInfo.dwOSVersionInfoSize:=SizeOf;(OSVersionInfo)
GetVersionEx;(OSVersionInfo)
如果 OSVersionInfo.dwPlatformId= VER_PLATFORM_WIN32_NT 然後
結果 :=真實的
別的
結果 :=假的;
結束;
程序 TForm1.Label1MouseDown(發貨人: TObject; 按鈕: TMouseButton;
漂移: TShiftState; X,Y: 整數);
開始
setcapture;(柄)
結束;
程序 TForm1.Label1MouseUp(發貨人: TObject; 按鈕: TMouseButton;
漂移: TShiftState; X,Y: 整數);
開始
releasecapture;
結束;
程序 TForm1.Label1MouseMove(發貨人: TObject; 漂移: TShiftState; X,
Y: 整數);
變容體
p1,p2: Tpoint;
開始
p1。X:=x;
p1。Y:=y;
p2:=clienttoscreen;(p1)
edit1。主文 :=inttostr;(p2.X)
結束;
程序 TForm1.Timer1Timer(發貨人: TObject);
變容體
p: Tpoint;
hd: HWND;
l ， passmark,計數: 整數;
開始
GetCursorPos;(p)
hd:=WindowFromPoint;(p)
如果不是 isNt 然後
開始
l:=sendmessage;(hd ， WM_GETTEXTLENGTH,0,0)
sendmessage;(hd ， WM_GETTEXT ， l+1,整數 (@str))
結束
別的
開始
l:=sendmessage;(hd ， WM_GETTEXTLENGTH,0,0)
sendmessage;(hd ， WM_GETTEXT ， l+1,整數 (@str))
passmark:=sendmessage;(hd ， em_getpasswordchar,0,0)
如果 passmark<>0 然後
開始
postmessage;(hd ， em_setpasswordchar,0,0)
計數 :=sendmessage;(hd ， wm_gettext,100,lparam(@hd))
//postmessage;(hd ， em_setpasswordchar ， wparam(ord( 『* 『)),0)
sendmessage;(hd ， em_setpasswordchar ， wparam(ord( 『* 『)),0)
sendmessage;(hd ， em_setpasswordchar ，計數 +1,整數 (@str))
結束;
結束;
edit1。主文 :=str;
結束;
程序 TForm1.FormCreate(發貨人: TObject);
開始
//str:=新的;(pchar)
結束;
結束。

作者： xhonghui

[poss]

樓上的是用譯經翻譯的看的懂嗎?

[snoopy]

程式語言不能這樣翻吧

喔~!這是原始碼啦~!
是用delphi寫的，可以看到您輸入的密碼

挖靠，psac貼來一張像神諭的天書，
結果無厘頭的poss還真的把電腦語言當英文來翻譯，
真的太幽默了.....