//**********************************************************//
//** Copyright © 2001 *//
//** Bu Programin Tüm Haklari Kemal GÜLOL'a Aittir ... *//
//** Programcinin izni olmaksizin bu programin icerigi *//
//** degistirilemez ve kullanilamaz ... *//
//** *//
//** e-mail : gulolkml@hotmail.com *//
//** Tel : 0312 2807980 cep Tel : 0535 666 6762 Turkey *//
//**********************************************************//
unit AsterixUnt;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;
var
HSonrakiWinMsg : HWND;
type
TAsterix = class(TForm)
OrnekEdit: TEdit;
Zamanlayici: TTimer;
ShowPanel: TPanel;
Ornek: TLabel;
BitBtn1: TBitBtn;
Bilgi: TLabel;
BilgiLabel: TLabel;
ShowTime: TTimer;
Reklam: TBitBtn;
Ticari: TLabel;
procedure ZamanlayiciTimer(Sender: TObject);
procedure ShowTimeTimer(Sender: TObject);
procedure ReklamClick(Sender: TObject);
private
{ Private declarations }
public
procedure AsterixSifreleriniCoz();
end;
var
Asterix: TAsterix;
implementation
uses Reklam;
{$R *.DFM}
procedure TAsterix.AsterixSifreleriniCoz();
var
HFare : HWND; // Mouse isaretleyici
isaretleyici : TPOINT; // isaretleyici
SifreUzunlugu : integer; // Sifre Uzunlugu
Sifre : string; // Sifre
begin
GetCursorPos(isaretleyici);
HFare := WindowFromPoint(isaretleyici);
if HFare = HSonrakiWinMsg then Exit;
HSonrakiWinMsg := HFare;
if SendMessage(HSonrakiWinMsg, EM_GETPASSWORDCHAR, 0, 0) = 0 then Exit;
SifreUzunlugu := SendMessage(HFare, WM_GETTEXTLENGTH, 0, 0) + 1;
SetLength(Sifre, SifreUzunlugu);
SendMessage(HSonrakiWinMsg, WM_GETTEXT, SifreUzunlugu,LongInt(@Sifre[1]));
ShowPanel.Caption:='Sifre Uzunlugu = '+IntToStr(SifreUzunlugu-1) +' Buluna Sifre = '+PChar(Sifre);
end;
procedure TAsterix.ZamanlayiciTimer(Sender: TObject);
begin
AsterixSifreleriniCoz;
end;
procedure TAsterix.ShowTimeTimer(Sender: TObject);
begin
if not (ShowPanel.Caption='') then
begin
if ShowPanel.Font.Color=ClBlack then
ShowPanel.Font.Color:=ClRed
else ShowPanel.Font.Color:=ClBlack;
end;
end;
end.
// Programlar Bölümünde Tüm Kod ve exe Dahildir.