unit Unit1; interface uses Win_程序员之家(从一个LNK(快捷方式)取得该快捷方式的指向EXE(可执行档)? )

开发技术指南» 文章正文

引言： unit Unit1; interface uses Win

摘要：软件名称：《qq列表精灵》下载地址：http://redyunlong.51.net/redlegend/download.php 该软件是本人在2002年根据“腾讯qq”的“oicq2000.cfg”文件的漏洞，制作的可以更改，编辑，删除登陆列表的程序，并且可以里面的信息得到自动登陆的密码。发现漏洞：我们在一台电脑登陆过qq之后，下次启动q......

·两个字符串分割函数引出的奇怪问题 »显示摘要«

摘要：下面两个函数均是对于一个字符串将其以某个分割符分开： function splitstrtoarray(const tstring, tsplit: string): tstringlist; //以后成为方法1，这也是《delphi超级猛料》中提到的算法 var t_str, t_item: widestring; t_index, t_len: integer; t_strlist: tstr......

从一个LNK(快捷方式)取得该快捷方式的指向EXE(可执行档)?

unit unit1;

uses 【程序编程相关:DB2 UDB DBA 核对清单】

interface 【推荐阅读:使用 DB2 数据移动实用工具中的文件类】

windows, messages, sysutils, variants, classes, graphics, controls, forms, 【扩展信息:使用 DB2 工具在异种平台间克隆数据库】

dialogs, stdctrls;

type

tform1 = class(tform)

button1: tbutton;

procedure button1click(sender: tobject);

private

{ private declarations }

public

{ public declarations }

end;

var

form1: tform1;

implementation

uses activex,comobj,shlobj;

{$r *.dfm}

function resolvelink(const alinkfile: string): string;

var

link: ishelllink;

storage: ipersistfile;

filedata: twin32finddata;

buf: array[0..max_path] of char;

widepath: widestring;

... 下一页

·动态建表(示例) »显示摘要«

摘要：beginwith table1 dobegin active := false; databasename := doctor; tabletype := ttparadox; tablename := doctorinf23; if not table1.exists then begin with fielddefs do begin clear; with addfielddef do b......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：