出300人民币请教一些问题，谁能解答 就送出奖金！和日后程序项目合作的机会(300分)

工具：delphi 7 &nbsp;平台：windowsXP<br><br>不要求要写程序，遇到问题QQ回答一下就行了。不过估计要精通以下方向者才好回答。<br>windows系统、窗口特性、文件操作（熟悉嵌入资源浏器）和一些算法很简单的数据库（Access）：<br><br><br>主要有： <br>1&gt; 搜寻硬盘上文件，把文件名、文件地址写入数据库 <br>2&gt; 搜索数据库。对选中者缓存，一个按钮把选中数据库对应硬盘文件copy到指定目录 <br>3&gt; 拷贝文件时计数。 程序还有计时、冻结程序窗口（全屏最大化，总在最前面，而且不能切换到其它任何程序，管理员输入一个密码才后可以最小化）等一些小问题 <br><br>请留e-mail地址发细文。看完e-mail后，觉得随便弄弄都ok者，可以揭榜；<br><br>对于合作特别开心者，再多送50%人民币 ，不成敬意<br><br>我的QQ:10621628<br><br>最主要是可以认识一些编程高手，以后有项目可以在第一时间内最快攻克。能认识稳定的高手是最好。中途概不奉送款额(跑过2个人)，没有水平者勿试（浪费彼此时间），想1个星期内搞完。在下手机：13637600262 座机：0898-25509776 何sir

对有价值提示者散分! &nbsp;大家接分啰~~<br>===========主要实现以下=================<br><br>平时屏幕冻结；<br><br>用户输入自己正确的帐号和密码后；<br>屏幕解冻，软件可以使用，同时开始计时，每隔1分钟扣掉一定的会员积分；<br><br>用户敲入歌曲全部或部分名字，输出搜索结果；<br>用户选择歌曲（CheckBox）；<br>用户按确定按钮后，该歌曲缓存在另外一个listview中（用户自己找到的歌，因为是一首一首的搜索结果，所以找到一个就放在这里，最后一次性copy到自己的mp3/mp4上）；<br><br>客户觉得已经都找够了，按一个按键，文件拷贝到客户的mp3的子目录或者指定目录上（要求程序员熟悉调用资源浏器）。<br>拷贝的时候，成功拷贝完一个就计数一个，扣掉一定的会员积分；<br><br>用户可以在内嵌的资源浏览器上，对自己的mp3播放器进行移动、删除歌曲等操作。但不能浏览电脑硬盘，本程序最大化以后任何按键都不能切换到桌面、或者其他程序，也不能退出本程序。最小化、退出等需要输入一个密码。<br><br>（如果觉得麻烦，键盘上一些按键。我们打算采取拆开键盘，用透明绝缘胶封住按键触点，物理方法屏蔽掉该按键。比如F4，ctrl，windows键。这是一台专门用于下载mp3的电脑，不需要这些按键也没事）<br><br><br>最后用户下载玩以后，选择退出。停止计时和扣除积分，屏幕冻结；准备好给下一位用户。

这个问题有挑战性啊,可惜我没时间.你说的数据库是用Access么?还是用MsSQL?

1&gt; 搜寻硬盘上文件，<br>&nbsp; FindFirst &nbsp;<br>&nbsp; 递归查找目录<br>把文件名、文件地址写入数据库 <br>&nbsp; 文件地址？路径？<br>&nbsp; Insert into .....<br>2&gt;搜索数据库，对选中者缓存，一个按钮就可以把选中的全部拷贝 <br>&nbsp; while.....do<br>3&gt; 拷贝文件时计数 , 程序还有计时、冻结程序窗口等一些小问题 <br>&nbsp; &nbsp;设立计数变量、计时变量<br>&nbsp; &nbsp;冻结程序窗口？信息不足，你想做什么？

function EnumFileInRecursion(path: PChar;vFileList:TStrings): Longint; stdcall;<br>var<br>&nbsp; searchRec: TSearchRec;<br>&nbsp; found: Integer;<br>&nbsp; tmpStr: string;<br>begin<br>&nbsp; vFileList.Clear;<br>&nbsp; Result := 0; //查找结果(文件数)<br><br>&nbsp; tmpStr := StrPas(path) + '/*.*';<br><br>&nbsp; found := FindFirst(tmpStr, faAnyFile, searchRec);//第一个文件或目录<br>&nbsp; while found = 0 do<br>&nbsp; begin<br>&nbsp; &nbsp; if (searchRec.Attr and faDirectory) &lt;&gt; 0 then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; if (searchRec.Name &lt;&gt; '.') and (searchRec.Name &lt;&gt; '..') then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; tmpStr := StrPas(path) + '/' + searchRec.Name;<br>&nbsp; &nbsp; &nbsp; &nbsp; Result := Result + EnumFileInRecursion(PChar(tmpStr),vFileList);//递归调用<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; end<br>&nbsp; &nbsp; else begin<br>&nbsp; &nbsp; &nbsp; Result := Result + 1;<br>&nbsp; &nbsp; &nbsp; //把找到的文件加到Memo控件<br>&nbsp; &nbsp; &nbsp; vFileList.Add(StrPas(path) + '/' + searchRec.Name);<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; //查找下一个文件或目录<br>&nbsp; &nbsp; found := FindNext(searchRec);<br>&nbsp; end;<br>&nbsp; //释放资源<br>&nbsp; FindClose(searchRec);

想揭榜请留e-mail<br>最好：为人诚恳。上次和前次的合作者都拿一些项目的订金，然后做到一半跑掉了。太牛了~

你这个有时间限制么?多久搞完?

目前用Access还够应付，如果觉得MsSQL不难，用SQL！<br>时间1个星期<br>甚至不需要您出手，只要指导一下能怎么弄就行了。<br>我自己来写，不懂就问。就像请家教一样

我来帮你吧，具体用QQ谈<br>QQ:594992170<br>EMAIL:594992170@qq.com<br>没有工作在身，有网络，可以联系方便，时间充足。

哈哈,我爱PASCAL 正好.

汗~ 我不是发在delphi区吗？<br>用delphi 7 也

不是这个意思,我说的Pascal是指他啊 --&gt;来自：我爱PASCAL<br><br>steam520@tom.com<br>我的邮箱.

这个问题还需要＂有水平者＂吗？<br>没水平的都可以搞．<br><br><br>１０００＄我倒愿意全盘搞定．

这些功能好像是很基本的啊<br>只要是搞系统方面编程的都容易的<br>你是的这些功能基本上都对应的API函数的<br>450虽然少了点<br>不过不用实际写代码<br>找我好了,基本上只要不睡觉，都在网上<br>QQ:158783169 注明450

QQ251031883<br>e:zpp218118@126.com

我不嫌少，我也乐于交个朋友。<br>老实说这些都挺简单的，我都会，我也经常在线（有时隐身）。<br>QQ：147629800，EMAIL：kingson.cn@gmail.com

来自：linuxping, 时间：2008-2-29 6:07:16, ID：3876260<br>这个问题还需要＂有水平者＂吗？<br>没水平的都可以搞．<br><br>晕~~ &nbsp;说这种话的人，水平太有限了。同一个功能不同的方案，速度、稳定性都会不同。<br>什么叫简单 什么叫高水平，嗟夫~<br><br>拓展起来有：触摸屏；联机共享服务器的文件；<br>自动切换本地和网络搜索；你有弄过吗？这个东西扩展起来就很多。<br>因为现在只是一个初步，显得比较简单；以后还有很多机会的嘛，所以要找到高手。<br><br>这东西应该来说比较简单，但一个人能成就事情：不是说单单靠技术就行，还要看人品；<br>想和我们愿意合作的人，最好都是稳定、沉稳的人：<br>跑掉的那些人都是说这些没问题，可以搞定。做一半就拿一半的钱跑掉了（说急用钱），QQ也不上了。<br><br>会的人肯定会有；网络给了很多方便。技术上差一点都没关系的，可以上论坛；技术高挑，做人不安，我们也不高攀。<br><br>详细的东西列出写在2楼；

慢慢看看。

你要的是这个软件的功能吧<br>http://www.mzmedia.cn/soft_songmp3.asp

难点在锁屏<br>我有一个思路可以不锁屏，就是所有的MP3，MP4都加密，复制的同时解密，就无需锁屏和下键盘按钮了。