![delphi 一个文件重复生成的小工具[附源码]](https://wstatic.apizl.com/images/defaultpic.gif?x-oss-process=image/resize,m_fill,h_141,w_232)
因为项目的需要，我用Delphi开发了一个小的程序。程序的功能就是选择一个文件，而后可以指定复制多少个相同的文件，用这些复制的文件做并发上传文件用。下面附源码和可执行文件...
我知道早在几年前就有了这种工具。不过我所找到的这类工具都不大好用，比如 W.Z.Q 的那个，每次修改都要从游戏里切换出来，很不方便。因此一怒之下自己写了个，具备全局快捷键修...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, XPMan, StdCtrls, FileCtrl, RzFilSys, ExtCtrls,jpeg,ShlObj; type TForm1 = class(TForm) Button1: TButton; Button3: TButton...
做服务类应用，总要输出日志，便于调试及掌握应用服务器的运行状态，在界面上显示日志内容，就要访问VCL可视控件，因此，输入日志的代码，一定要线程安全，才不会在写日志时，...
combobox和listbox的文字可以右对齐显示么？答案是可以的，但是必须使用ComboBox1DrawItem，自行画内容。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialog...
units1; interface uses Windows,Messages,SysUtils,Graphics,Controls,Forms,StdCtrls, Classes; type TForm1=class(TForm) Button1:TButton; Memo1:TMemo; procedureButton1Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclaratio...
procedure TForm2.btn1Click(Sender: TObject); var arr1, arr2: TBytes; len: Integer; begin SetLength(arr1, 3); SetLength(arr2, 3); arr1[0] := 65; arr1[1] := 66; arr1[2] := 67; arr2[0] := 68; arr2[1] := 69; arr2[2] := 70; len := Length(arr1);...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ComObj,ShellAPI; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject);...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure...
演示了PostMessage, SendMessage, WM_CHAR发送汉字。 源代码： ------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type...