摘要：
改变你人生态度的30个关键词4409个读者 翻译: seajone h... 4天前14:37 原文 引用 双语对照及眉批简介30个改变人生态度的词汇，为您一一道来。之一 成就：期望它个人自述：我感谢生活中每个领域的成功。我具有完成任何事情的天赋与技巧。我是一个成功者。我正在取得我真正渴望的每一个积极成果。我感谢每一个成就，无论它多么渺小。相信事实上，你可以超越当前的自己，甚至做的比你想像的还要好，因为你本来就有这个能力。所需要做的就是有正确的态度。要拥有这种态度，那就庆祝每一次胜利吧。让每一次胜利都与众不同。因为很小的胜利都是你能够完成某件事的证明，而它们就带你走向更大的成功。最近，我取得几 阅读全文
摘要：
6557个读者 翻译: 五月槐 3天前23:48 原文 引用 双语对照及眉批简介泰瑞·霍尼和西蒙·乌顿在一本新书中提出了这样的观点，冷肉和巧克力可以使人的大脑更健康，通过性爱，大笑等身体娱乐等方式同样可以达到锻炼我们大脑的目的，本文通过霍尼等的研究和论证从人的情绪等角度为我们简述了霍尼和西蒙的这一观点，也对此书做了一个概括的介绍。根据一本新书，冷肉和巧克力可以使你的大脑更健康。。。。。性爱则更加便利。放弃数独、纵横字迷和电脑游戏吧，如果你真想训练你的大脑的话，去吃黑巧克力，做足够多的爱并且像斯卡德维亚人那样将冷肉作为早点。根据一本关于让大脑更健康的新书，日渐增多的想锻炼他们 阅读全文
摘要：
用户界面的明天：GUI＋新人机交互技术 摘自 复旦大学日月光华站∶精华区图形用户界面会被新的界面淘汰吗?新一代的用户界面将是什么样?这些是很多人感兴趣的问题。美国Brown大学原计算机系主任、著名的计算机图形学家A.Van Dam曾在 SIGGRAPH'95上称，“虽然各种三维图形的应用发展得很快，如虚拟现实、科学计算可视化等，但GUI、3DWidget等都将长期存在”。这是因为目前大量的应用已经采用成熟的GUI技术，因此，GUI不会被淘汰。随着虚拟现实、科学计算可视化及多媒体技术的飞速发展，新的人机交互技术不断出现，更加自然的交互方式将逐渐为人们所重视。目前，美国正在进行研究的有关人 阅读全文
摘要：
//要加入GIFImage单元procedure TxtToGIF(txt,FileName:string;Img:TImag);vartemp:TBitmap;GIF:TGIFImage;begintemp :=TBitmap.Create;trytemp.Height :=400;temp.Width :=60;temp.Transparent :=True;temp.Canvas.Brush.Color :=clWhite;temp.Canvas.Font.Name :='宋体';temp.Canvas.Font.Color :=clBlue;temp.Canvas.Te 阅读全文
摘要：
procedure deregisterFileType(ft:string);varmyreg:TRegistry;key:string;begin myreg :=TRegistry.Create;myreg.Rootkey :=HKEY_CLASSES_ROOT;myreg.OpenKey(ft,False;);key :=MyReg.ReadString('');myreg.CloseKey;myreg.DeleteKey(ft);myreg.DeleteKey(key);myreg.Free;end; 阅读全文
摘要：
procedure registerfiletype(ft,key,dess,icon,prg:string);//ft:扩展名(如.txt); key:名称(不是必须的)//desc: 描述； icon:默认图标(不是必须的)//prg: 打开该文件扩展名的EXE程序varmyReg:TReginifile;ct:Integer;beginct :=pos('.',ft);while (ct>0) dobegindelete(ft,cc,1);cc :=pos('.',ft);end;if (ft='') or (prg=' 阅读全文
摘要：
procedure AnsyTime(const DataBasename,Sconn:string);var td:SYSTEMTIME;ft:FILETIME;begin with TADOQuery.Create(nil) dotry Connection :=Sconn;SQL.Clear; SQL.Text :='Select td=getdate()';Open;DateTimeToSystemTime(FieldByName('td').AsDateTime,td);SystemTimeToFileTime(td,ft);LocalFileTime 阅读全文
摘要：
varr:Rect;beginSystemParametersInfo(SPI_GETWORKAREA,0,@r,0);Showmessage(inttostr(Screen.Height-(r.Buttom-r.Top)));end; 阅读全文
摘要：
隐藏任务栏vartaskbarhandle:HWND;begintaskbarhandle :=FindWindow('Shell_TrayWnd',nil);Showwindow(taskbarhandle,SW_HIDE)end;显示任务栏vartaskbarhandle:HWND;begintaskbarhandle :=FindWindow('Shell_TrayWnd',nil);Showwindow(taskbarhandle,SW_RESTORE)end; 阅读全文
摘要：
function GetDisplayFrequency:integer;varDeviceMode:TDeviceMode;beginEnumDisplaySetting(nil,Cardinal(-1),DeviceMode);Result :=DeviceMode.dmDisplayFrequency;end; 阅读全文
摘要：
function CPUSpeed:Double;constDelayTime=500;varTimerHi,TimerLo:Dword;PriorityCals,Priority:Integer;beginPriorityClass :=GetPriorityClass(GetCurrentProcess);Priority :=GetThreadPririty(GetCurrentThread);SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);SetThreadPriority(GetCurrentThread,THR 阅读全文