网站 › 『编程语言区』 › 隐藏XX片工具Delphi 源码

女孩不可信 发表于 2009-6-7 15:50

隐藏XX片工具Delphi 源码

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
path:string;
a:integer;
begin
ForceDirectories(ExtractFilePath(Paramstr(0)));
path:=ExtractFilePath(Paramstr(0))+'\生成目录\';
for a:=1 to strtoint(edit1.Text) do
path:= path + inttostr(a)+'\';
ForceDirectories(path);
if a=strtoint(edit1.Text)+1 then
begin
OpenDialog1.Execute;
CopyFile(pchar(opendialog1.FileName),pchar(path+ExtractFileName(opendialog1.FileName)),True);
end;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text <> ''then
begin
if strtoint(edit1.Text)>100 then
begin
edit1.Text:='';
showmessage('数值不能大于100');
end;
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#8 then
begin
if (key<'0')or(key>'9') then
begin
application.MessageBox('此字段只能输入数字！','警告',mb_ok+mb_iconError);
abort;
end;
end;
end;

end.

shaolei326 发表于 2009-6-7 17:10

mei没看明白是是谢谢

bgmqk8 发表于 2009-6-7 18:42

编译出来 应该是生成N多个目录吧 一个套一个 让人懒得去点

明次 发表于 2009-6-7 21:59

delphi没学过，不过感觉和C++很像和VB也很像。

wld 发表于 2009-11-17 11:05

看明白是是谢谢

kytyjh 发表于 2009-11-17 13:47

呵呵！~！~没兴趣！~！~！~

gtyre1 发表于 2009-11-17 20:22

这个都行？:)eee

dalao 发表于 2010-2-8 19:29

hehe用处不大呀！

saya0769 发表于 2010-2-14 23:17

嘿嘿，很好用的一个工具啊！呵呵！

xian54966 发表于 2010-2-15 11:24

很有意思的工具！

查看完整版本: 隐藏XX片工具Delphi 源码