小帆工作室(网络记事本)
百度空间 | 百度首页 
 
文章列表
 
2009-11-04 下午 11:16
//工程文件中加入:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

 
2009-11-02 下午 11:17
我们先看单元中的一组常量定义:

unit
 DateUtils

const
.......
DayMonday = 1;
DayTuesday = 2;
DayWednesday = 3;
DayThursday = 4;
DayFriday =
 
2009-10-27 上午 11:06


//建立一空白工程,放一TPanel, 在 Panel 上放一个 TImage 和 一个 TLabel;
 
unit Unit1;

interface

uses
Windows
 
2009-10-10 下午 11:25
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
 
2009-09-18 上午 09:28
转载请注明:小帆工作室
以前的代码:
///////////////////////////////////////
ShowWindow(Application.Handle,SW_HIDE);
///////////////////////////////////////

在 Delphi2007/2009/2010 已经失效!
原因是 Delphi 在 Form 改写代码,在工程文件中多了:

///////////////////////////////////////
Application.MainFormOnTaskbar := True;
 
2009-09-11 上午 09:12
某些自己辛苦爬网刨出来的代码,不能就这样的便宜了那些自大,鼻子向天的筒子们,甚至有些代码是我厚着脸皮向老外要来的,当然,你可以说我崇洋媚外,可以说我无聊,可以说我很2,可以用一切我所不能想象到的语言攻击我,但是,你永远不知道我所掌握的技术!

就是这么简单,当然,这个世界有网络,你也可以去刨,去厚着脸皮向老外要,但是曾经有公平研究讨论的机会摆在你面前你不去珍惜。。。还是算了吧,等到没时间继续将爱好 delphi 玩下去的时候,我宁愿将很多,很多的掌握的代码(国内的论坛真的很少见的代码)用一个命令
 
2009-08-10 下午 04:37
夜已深,万籁俱寂.忽然屋顶瓦片响动,偶从草榻上一跃而起,低声喝问:“谁?!”屋顶有人答道:“阁下请出来说话。”偶飞身跃入院中,但见屋脊上站立一 人,打扮颇为怪异,似是异邦之人。背负一口长剑,剑柄镶了一颗极大的珠子,月光之下发出幽幽绿光。偶心头一凛,想起一人,拱手道:“原来是还珠楼主,楼主 久不到中原,不知今日所来为何?”还珠楼主却不答话,一扬手,一道白光直射下来,偶不敢怠慢,侧身让过,卸了暗器飞来之势,探手将暗器接住,却是一张纸。 还珠楼主一笑:“今日特来发帖。”偶再看那张纸,虽是好纸,却已发黄,
 
2009-07-10 上午 09:08

http://support.microsoft.com/kb/130510

语法

EXPLORER.EXE [n] [/ e] [,/ 根,<object>] [[,/ select],< 子对象 >]

开关

/n:  Opens a new window in single-paned (My Computer) view for each item
selected, even if the new window duplicates a window that is
already open.
 
2009-07-06 下午 04:47
uses
ShlObj, ActiveX, ComObj; {该函数使用的单元}

{函数说明:}
{第一个参数是要建立快捷方式的文件, 这是必须的; 其他都是可选参数}
{第二个参数是快捷方式名称, 缺省使用参数一的文件名}
{第三个参数是指定目的文件夹, 缺省目的是桌面; 如果有第四个参数, 该参数将
 
2009-03-03 上午 00:11
下面是一些预览:
1.原始设计:

2.可以加载别的皮肤进行修改,加载了其他现成的皮肤效果:

 
2009-03-01 下午 11:57
procedure TForm1.Timer1Timer(Sender: TObject);
var
vLastInputInfo: TLastInputInfo;
begin
vLastInputInfo.cbSize :
= SizeOf(vLastInp
 
2009-03-01 下午 09:14
C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Unit1.pas function DelChar(AFile: string; DelStart, DelCount: integer): integer
 
2009-02-26 下午 06:35
function IsNumeric(AStr:   string):   Boolean;  
var
Value:   Double;  
Code:   Integer;  
begin
Val(AStr,   Value,   Code);  
result   :=   Code   =   0;  
end;
 
2009-02-22 上午 01:26
1.秦始皇修筑万里长城时死了许多人,孟姜女的丈夫万喜良也在其中。听到这个消息,孟姜女只觉得天昏地暗,一下子昏倒在地,醒来后,她伤心地痛哭起来,
只哭得天愁地惨,日月无光。不知哭了多久,忽听得天摇地动般地一声巨响,长城崩塌了几十里,露出了数不清的尸骨。孟姜女咬破手指,把血滴在一具具的尸骨
上,她心里暗暗祷告:如果是丈夫的尸骨,血就会渗进骨头,如果不是,血就会流向四方。终于,孟姜女用这种方法找到了万喜良的尸骨。她抱着这堆白骨,哭着
说道:"老万,你的死跟你丫本人素质不高有关啊!"
 
2009-01-19 上午 10:15
C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Unit1.pas (*//
标题:搜索字符串在流中的位置
说明:适用于文件搜索等
设计:Zswang
支持:wjhu111@21cn.com
日期:2004-03-21
//*)

(*//==============================================================
 
     
 
 
个人档案
 
 sailxia
男, 9岁
广东 广州 
加为好友
 
   
 
文章分类
 
 
Delphi(98)
 
Vb(1)
 
 
Food(28)
 
 
 
 
Hide(1)
 
     
 
最新评论
 
文章评论|照片评论


浏览器的应该叫 IEBand
 
 

标题已经说了, DeskBand 技术嘛
 

请问你是怎么实现这种最小化到任务栏的了
 
 
     
 
好友最新文章
 
     
 
最近访客
 
 

铥卡

墮落の倣棄

lmxxw

wing_0822

shunh9hf

yagzh2000

8猫大头8

冯氏贸易
     
 
订阅我的空间
 
已有人次访问本空间
 
订阅RSS  什么是RSS?

您也想拥有这样的空间?请点此申请。
     


©2009 Baidu