登陆
浏览模式: 标准 | 列表 Tag: Delphi

刷文章的点击率

如果你用手按一直在那里按个不停或者按住F5你不累吗?
你不用做别的事了么?嘿嘿 这个是有刷文章点击率频率的哦

» 阅读全文

Tags: delphi, 程序, 刷点击率

Delphi 检测网络是否连通

在做一个项目的时候碰到问题暂时只能用以下代码检测网络的连接了
不同于http://www.jackfeng.cn/show-692-1.html

» 阅读全文

Tags: delphi, 判断上网, 检测上网

delphi判断上网

在玩delphi碰到上网的项目
在一位高手的博客上找到解决的办法,如果你也需要这个不要错过

» 阅读全文

Tags: delphi, 判断上网, 检测上网

帮朋友写的一个刷文章的点击率

如果你用手按一直在那里按个不停或者按住F5你不累吗?
你不用做别的事了么?嘿嘿

» 阅读全文

Tags: delphi, 程序, 刷点击率

Delphi里面的好东西 执行外部命令 winexec

winexec真的太棒了。。。
这个函数我太喜欢了。 有兴趣也来看看

» 阅读全文

Tags: delphi, 执行

踩蘑菇的beep声音

单调的beep声音可以通过循环语句形成好听的单子
像Nokia手机一样的铃声嘿嘿 这个例子是小时候玩的踩蘑菇的声音哦

» 阅读全文

Tags: beep, delphi

给delphi加链接地址

在源代码里面的最上头加入
shellapi

» 阅读全文

Tags: delphi, 链接

提示Can't load package dclite70.bpl

姐姐装完delphi碰到了

未命名.jpg

大小: 21.27 K
尺寸: 390 x 92
浏览: 446 次
点击打开新窗口浏览全图

打开就弹出一个烦人的窗口

提示不能加载dclite70.bpl

-----------------------------解决方法如下

右击“我的电脑”。单击“属性”。
在“系统属性”中单击“高级”。
在“性能”中单击“设置”。
在“性能选项”中单击“数据执行保护”。
单击“添加”。选择Delphi7安装目录,然后到Bin目录下选择Delphi32.exe。
弄好就重启Delphi吧

001.gif

大小: 3.59 K
尺寸: 400 x 85
浏览: 438 次
点击打开新窗口浏览全图

Tags: delphi, dclite70

用Delphi改变文件夹图标

代码:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
iniFile : TStrings ;
begin
  CreateDir('C:\YourFolder') ;
  iniFile := TStringList.Create;
  with iniFile do
    begin
      Add('[.ShellClassInfo]') ;
      
      Add('IconFile = ' + GetEnvironmentVariable('Windir')
      + '\system32\SHELL32.DLL') ;
      
      Add('IconIndex = 38') ;
      
      
      Add('InfoTip = This is folder with icon') ;
      SaveToFile('C:\YourFolder\Desktop.ini');
    end;
    
    SysUtils.FileSetAttr('C:\YourFolder', SysUtils.faReadOnly) ;
    SysUtils.FileSetAttr('C:\YourFolder\Desktop.ini',
    SysUtils.faSysFile or SysUtils.faHidden) ;
    iniFile.Free ;
  end;
  
end.

里面的YourFolder可以自己改文件夹的名称
做了这个效果截了图
原图:
点击在新窗口中浏览此图片
运行程序后
点击在新窗口中浏览此图片

Tags: Delphi

轻松设置无边框透明窗体

    New->Application
    设置TransParentColor -> True;
    设置TransParentColorValue -> clMaroon;
    设置Color ->clMaroon;
    设置BorderStyle -> bsNone;
    添加一个Button1按钮作对比;
    运行。
看看,FORM 是不是已经透明了?

点击在新窗口中浏览此图片

Tags: Delphi