Delphi extracts the username

First of all, there is something wrong with the for loop.

for i := 0 to - 1 door for i := - 1 downto 0 do and then if this question is a follow-up to the for loop question you asked earlier, use for i :

0 to 1 do, only half of the data will be processed, and you will know what the problem is when you run it in a single step! Because you add and delete make the line that i points to inaccurate.

Use strutils first

And then. :=leftstr('Haoren is in the first year of junior high school',length('Haoren is in the first year of junior high school')-10);

1. Use the API to get the username.

2. Why use such a low-level method to start the manuscript? Wouldn't it be better to write the registry directly?

With webbrowser cores then pure pants with this.

If you use idhttp, you can learn from the upstairs to change the shed and use the regular expression.

vari :integer;

for i :=0 to - 1 do

end;

Use get to get the page ** and use regular expressions to get the URL in the page **

Stealing numbers, right?

Is it the version of QQ? In the past, it was good to install the keyboard hook record directly. The latter ones are not so easy to handle.

That's how it should be.

You want to determine whether the current form is a QQ form.

Record keypad information. Then send it to mail.

There's still nothing to study about this.

This requires calling the API functions DeviceIoControl, CreateFile

But there are some struct definitions that need to be used, and there is no hassle in delphi. You have to look it up on your own msdn and get these.

The definition of the struct is written in Pascal syntax.

It is recommended to write directly in C++Builder, so you don't have to thank yourself in the header file, give you an example.

The usual way to get the path to other software is to read the registry (change Zen if the software has written to the registry), for QQ is the same, you can search for Tencent on the machine with QQ or try it, for example, there is a hkey local machine software on the even machine Microsoft Windows CurrentVersion shareddlls has a d: Tencent QQ Bin, of course, there are many other registries written to the QQ installation directory).

After that, it's simple, go directly to read this location, how to read the registry needless to say.

You can write an exe that calls an external file, shellexecute(handle,'open','Basal foci C: MyApp','sw_shownormal);

extractfilepath(''

Then put this exe into the qq installation directory (that is, the directory that exists. In this way, you can call that punch to play a file, isn't the method a bit stupid.

The serial number should be required for installation.

**I don't know which version you are pressing. If it's the more generic delphi7:

ey7m-bk73a3-vj2dt8-jz7mcaz-xy3

delphi6's words:

z9j8-pum4n-c6gzq

rw2-73w

Try it out with the above.

The first time take a value of 1,2.

The second time takes the value of 2,3.

.Take the value of n ,n+1 for the nth time.

Suppose all records are stored in an array var arr:array[1..count] of string.

var i:integer;

var c1,c2:string;

for i:=1 to count-1 dobegin

c1:=arr[i];

c2:=arr[i+1];

showmessage(c1+c2);

end;c1 c2 is the value taken

Go through the table and take 2 at a time.

Database, right?

while not do

begina:='').asstring;

b:='').asstring;

end;In this case, two records are retrieved from the database at a time.

For specific usage, you can change it yourself".