| >
0: setpass;
begin
randomize;
fkey := random($ff);
for i:=1 to length(s) do
result := result+chr( ord(s[i]) xor i xor fkey);
result := result + char(fkey);
end;
1: getpass
begin
fkey := ord(s[length(s)]);
for i:=1 to length(s) - 1 do
result := result+chr( ord(s[i]) xor i xor fkey);
end;
end;
□◇[DELPHI]向其他应用程序发送模拟键
var
h: THandle;
begin
h := FindWindow(nil, ''''应用程序标题'''');
PostMessage(h, WM_KEYDOWN, VK_F9, 0);//发送F9键
end;
□◇[DELPHI]DELPHI 支持的DAO数据格式
td.Fields.Append(td.CreateField (''''dbBoolean'''',dbBoolean,0));
td.Fields.Append(td.CreateField (''''dbByte'''',dbByte,0));
td.Fields.Append(td.CreateField (''''dbInteger'''',dbInteger,0));
td.Fields.Append(td.CreateField (''''dbLong'''',dbLong,0));
td.Fields.Append(td.CreateField (''''dbCurrency'''',dbCurrency,0));
td.Fields.Append(td.CreateField (''''dbSingle'''',dbSingle,0));
td.Fields.Append(td.CreateField (''''dbDouble'''',dbDouble,0));
td.Fields.Append(td.CreateField (''''dbDate'''',dbDate,0));
td.Fields.Append(td.CreateField (''''dbBinary'''',dbBinary,0));
td.Fields.Append(td.CreateField (''''dbText'''',dbText,0));
td.Fields.Append(td.CreateField (''''dbLongBinary'''',dbLongBinary,0));
td.Fields.Append(td.CreateField (''''dbMemo'''',dbMemo,0));
td.Fields[''''ID''''].Set_Attributes(dbAutoIncrField);//自增字段
□◇[DELPHI]DELPHI配置MS SQL 7和BDE步骤
第一步，配置ODBC：
先在ODBC 中设数据源，安装过SQL Server7.0 后,ODBC中有一项"系统DSN"应该有两项
数据源，一个是MQIS，一个是LocalSever，任选一个选后点击配置按钮，不知你的SQL7.0
是不是安装在本地机器上，如果是的话直接进行下一步，如果不是，在服务器一栏中填上
Server,然后进行下一步，填写登录ID 和密码（登录ID，和密码是在SQL7.0中的用户选项
中设的）。
第二步，配置BDE:
打开Delphi的BDE，然后点击MQIS 或 LocalServer，就会提示用户名和密码，这和
ODBC的用户名和密码是一样的，填上就行了。
第三步，配置程序：
如果用的是TTable，就在TTable的DatabaseName中选择MQIS 或LocalServer,然后在
TableName中选择Sale就行了，然后将Active改为True,Delphi弹出提示对话，填入用户
名和密码。
如果用的是TQuery,在TQuery上点击右键，再击"SQL Builder"，这是以界面方式配置
SQL语句，或者在TQuery的SQL中填入SQL语句。最后，别忘了将Active改为True。
在运行也可能配置TQuery,具体见Delphi帮助。
□◇[DELPHI]得到图像上某一点的RGB值
procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
red,green,blue:byte ;
i:integer;
begin
i:= image1.Canvas.Pixels[x,y];
Blue:= GetBvalue(i);
Green:= GetGvalue(i):
Red:= GetRvalue(i);
Label1.Caption:=inttostr(Red);
Label2.Caption:=inttostr(Green);
Label3.Caption:=inttostr(Blue);
end;
□◇[DELPHI]关于日期格式分解转换
var year,month,day:word;now2:Tdatatime;
now2:=date();
decodedate(now2,year,month,day);
lable1.Text :=inttostr(year)+''''年''''+inttostr(month)+''''月''''+inttostr(day)+''''日'''';
◇[DELPHI]如何判断当前网络连接方式
判断结果是MODEM、局域网或是代理服务器方式。
uses wininet;
Function ConnectionKind :boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage(''''Modem'''');
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage(''''LAN'''');
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage(''''Proxy'''');
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage(''''Modem Busy'''');
end;
end;
end;
◇[DELPHI]如何判断字符串是否是有效EMAIL地址
function IsEMail(EMail: String): Boolean;
var s: String;ETpos: I 上一页 [1] [2] [3] [4] [5] [6] [7] 下一页 | 
