大富翁论坛-富翁笔记-delphi技巧.mht

大富翁论坛-富翁笔记-delphi技巧, 一个牛人的编程经验和笔记, 强烈推荐

complete then get the JCL.

type
// indicates the file time to set, used by SetFileTimesHelper and =
SetDirTimesHelper
TFileTimes =3D (ftLastAccess, ftLastWrite, ftCreation);

function SetFileTimesHelper(const FileName: string; const DateTime: =
TDateTime; Times: TFileTimes): Boolean;
var
Handle: THandle;
FileTime: TFileTime;
SystemTime: TSystemTime;
begin
Result :=3D False;
Handle :=3D CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, =
nil,
  OPEN_EXISTING, 0, 0);
if Handle <> INVALID_HANDLE_VALUE then
try
  //SysUtils.DateTimeToSystemTime(DateTimeToLocalDateTime(DateTime), =
SystemTime);
  SysUtils.DateTimeToSystemTime(DateTime, SystemTime);
  if Windows.SystemTimeToFileTime(SystemTime, FileTime) then
  begin
    case Times of
      ftLastAccess:
        Result :=3D SetFileTime(Handle, nil, @FileTime, nil);
      ftLastWrite:
        Result :=3D SetFileTime(Handle, nil, nil, @FileTime);
      ftCreation:
        Result :=3D SetFileTime(Handle, @FileTime, nil, nil);
    end;
  end;
finally
  CloseHandle(Handle);
end;
end;

//-----------------------------------------------------------------------=
---------------------------

function SetFileLastAccess(const FileName: string; const DateTime: =
TDateTime): Boolean;
begin
Result :=3D SetFileTimesHelper(FileName, DateTime, ftLastAccess);
end;

//-----------------------------------------------------------------------=
---------------------------

function SetFileLastWrite(const FileName: string; const DateTime: =
TDateTime): Boolean;
begin
Result :=3D SetFileTimesHelper(FileName, DateTime, ftLastWrite);
end;

//-----------------------------------------------------------------------=
---------------------------

function SetFileCreation(const FileName: string; const DateTime: =
TDateTime): Boolean;
begin
Result :=3D SetFileTimesHelper(FileName, DateTime, ftCreation);
end;
---------------------------------------------------------------------- =20

=20
 2004-3-7 21:42:37    =
=A3=C4=A3=C5=A3=CC=A3=D0=A3=C9=BE=AD=D1=E9=D7=DC=BD=E13 =
=A1=F3google=C9=CF=B5=C4=D3=D0=B9=D8delphi=B5=C3=CD=F8=D6=B7=A3=BA

http://directory.google.com/Top/Computers/Programming/Languages/Delphi/?t=
c=3D1

-------------------------------------------------------
=A1=F3yahoo=C9=CF=D3=D0=B9=D8delphi=B5=C3=CD=F8=D6=B7

http://dir.yahoo.com/Computers_and_Internet/Programming_and_Development/L=
anguages/Delphi/
-------------------------------------------------------
=A1=F3=C9=BE=B5=F4=B3=CC=D0=F2=D7=D4=BC=BA=B5=C4exe=CE=C4=BC=FE
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 F:TextFile;
begin
 AssignFile(F,'delself.bat');
 Rewrite(F);{F=CE=AATextFile=C0=E0=D0=CD}
 WriteLn(F,'del '+ExtractFileName(Application.ExeName));
 WriteLn(F,'del %0');   //=C9=BE=B3=FD=D7=D4=BC=BAdelself.bat
 CloseFile(F);
 WinExec('delself.bat',SW_HIDE);
end;
--------------------------------------------------------
=A1=F3=BA=BA=D7=D6=CA=C7=CB=AB=D7=D6=BD=DA=B5=C4
if ord(s[9])>128 then
 ShowMessage('=B8=C3=CE=BB=D6=C3=D7=D6=B7=FB=CA=C7=BA=BA=D7=D6');
--------------------------------------------------------
=A1=F3=B8=FC=B8=C4=CF=B5=CD=B3=CA=B1=BC=E4=B8=F1=CA=BD=A3=BA
var
 str: string;
begin
 str :=3D 'yyyy-mm-dd';
 if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE, PChar(str)) =
then
 begin
   showmessage('=B8=FC=B8=C4=C8=D5=C6=DA=B8=F1=CA=BD=B3=C9=B9=A6');
 end;
end;
---------------------------------------------------------
=A1=F3=D0=DD=CF=A2=D2=BB=B7=D6=D6=D3=A3=BA
var
I:integer;
begin
 i:=3Dgettickcount;
 while (Gettickcount-i)<=3D10000 do
   application.ProcessMessages;//=B1=A3=D6=A4=CF=FB=CF=A2=D1=AD=BB=B7
end;
--------------------------------------------------------
=A1=F3=C8=A1=D6=F7=CE=C4=BC=FE=C3=FB:
function retuFileName(const FileName: string): string;
var
 I: Integer;
begin
 I :=3D LastDelimiter('.', FileName);
 Result :=3D Copy(FileName, 1, i-1);
end;
---------------------------------------------------------
=A1=F3=B5=F7=D3=C3EXCLE=B4=F2=BF=AA=CE=C4=BC=FE=A1=A3
USES SHELLAPI
Shellexecute(handle,nil,pchar('c:\=B1=A8=B1=ED.xls'),nil,nil,sw_shownorma=
l);=20
-----------------------------------------------------------------------
=A1=F3[DELPHI]=B9=D8=D3=DA=B4=A6=C0=ED=D7=A2=B2=E1=B1=ED
uses Registry;
var reg:Tregistry;
reg:=3DTregistry.create;
reg.rootkey:=3D'HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;
--------------------------------------------------------
=A1=F3=B1=A8=B4=ED=BA=AF=CA=FD
procedure ErrMsg(sMsg:String; =
sPrompt:String=3D'=B3=F6=B4=ED=D0=C5=CF=A2');//=B3=F6=B4=ED=D0=C5=CF=A2=CF=
=D4=CA=BE=BF=F2
begin
 Application.MessageBox(PChar(sMsg), PChar(sPrompt), MB_ICONERROR or =
MB_OK)
end;
----------------------------------------------------------
=A1=F3=B3=F6=B4=ED=D0=C5=CF=A2=20
   try
   except
     on E: Exception do begin
       =
ErrMsg(Format('=B5=C7=C2=BC[%s]=CA=FD=BE=DD=BF=E2=CA=A7=B0=DC,=BB=D8=CD=CB=
=B2=D9=D7=F7=BD=AB=CA=A7=D0=A7=A3=BB'#13#10, [Server]) + E.Message);
       Result :=3D False;
     end;
   end;
-------------------------------------------------------------------
=A1=F3=D6=D0=CE=C4=CC=E1=CA=BE=BF=F2
Application.MessageBox('=CE=DE=B7=A8=B4=F2=BF=AA=D6=B8=B6=A8=CE=C4=BC=FE'=
, '=CC=E1=CA=BE', MB_OK);
---------------------------------------------------------------------
=A1=F3=D7=AA=BB=BB=CA=B1=BC=E4=B5=C4=BA=AF=CA=FD
formatdatetime('yyyy"=C4=EA"mm"=D4=C2"dd"=C8=D5"', =
UnccSysDate)=A3=BBUnccSysDate =CE=AATDATATIME=C0=E0=D0=CD
-----------------------------------------------------------------------
=A1=F3=B6=A8=CB=C0=D0=A1=CA=FD=B5=E3=BA=F3=B5=C4=CE=BB=CA=FD
Format('%*.*n', [10, 2, FieldByName('syje').AsFloat]
---------------------------------------------------------------------
=A1=F3=C0=E0=D0=CD=D7=AA=BB=BB=BA=AF=CA=FD
 inttostr();  =BD=AB=CA=FD=D7=D6=D7=AA=BB=BB=CE=AA=D7=D6=B7=FB=B4=AE
 Ord();  =
=B7=B5=BB=D8=D2=BB=B8=F6=D7=D6=B7=FB=B5=C4=D0=F2=BA=C5=A3=A8ASCII=C2=EB=A3=
=A9
 Char();  =
=B0=D1=D2=BB=B8=F6=D5=FB=D0=CD=CA=FD=D7=AA=BB=AF=B3=C9=CF=E0=D3=A6=D0=F2=BA=
=C5=B5=C4=D7=D6=B7=FB
 UpCase();  =B0=D1=D0=A1=D0=B4=D7=AA=BB=AF=CE=AA=B4=F3=D0=B4
--------------------------------------------------------------------
=A1=F3=D7=D6=B7=FB=B4=AE=B4=A6=C0=ED=BA=AF=CA=FD
 concat();  =
=D3=EB=A3=A8+=A3=A9=B9=A6=C4=DC=CF=E0=CD=AC=A3=AC=BD=AB=B6=E0=B8=F6=D7=D6=
=B7=FB=B4=AE=D7=E9=BA=CF=D4=DA=D2=BB=C6=F0
 copy();  =
=BB=E1=B7=B5=BB=D8=D2=BB=B8=F6=D7=D6=B7=FB=B4=AE=D6=D0=B5=C4=D7=D3=D7=D6=B7=
=FB=B4=AE
 delete();  =
=D4=DA=D2=BB=B8=F6=D7=D6=B7=FB=B4=AE=D6=D0=B4=D3=D2=BB=B8=F6=D6=B8=B6=A8=CE=
=BB=D6=C3=C6=F0=C9=BE=B3=FD=D2=BB=B6=A8=CA=FD=D7=D6=B5=C4=D7=D6=B7=FB=A3=A8=
=A3=A9
 insert();  =
=D4=DA=D2=BB=B8=F6=D7=D6=B7=FB=B4=AE=D6=D0=B2=E5=C8=EB=D2=BB=B8=F6=D7=D6=B7=
=FB=B4=AE
 length();  =B7=B5=BB=D8=D7=D6=B7=FB=B4=AE=B5=C4=B3=A4=B6=C8
 pos();    =
=B7=B5=BB=D8=D2=BB=B8=F6=D7=D3=D7=D6=B7=FB=B4=AE=D4=DA=D2=BB=B8=F6=D7=D6=B7=
=FB=B4=AE=D6=D0=B5=C4=CE=BB=D6=C3
-------------------------------------------------------------------
=A1=F3=D4=D8=C8=EB=CE=C4=BC=FE=B5=C4=CA=B5=CF=D6=B7=BD=B7=A8
var =20
 ts:tstring;
 begin=20
 ts:tstinglist.creat;
 ts.loadfromfile('=CE=C4=BC=FE=B5=C4=BE=F8=B6=D4=C2=B7=BE=B6');  =
//=B5=F7=D3=C3=CE=C4=BC=FE
----------------------------------------------------------------------
=A1=F3=CE=C4=BC=FE=BC=D0=B2=D9=D7=F7
uses filectrl;
procedure ForceDirectorys(dir:string)=20
      =
//=D2=BB=B4=CE=BD=A8=C1=A2=D6=B8=B6=A8=B5=C4=B6=E0=BC=B6=CE=C4=BC=FE=BC=D0=

function DirectoryExists(Name: string): Boolean;=20
     // =D6=B8=B6=A8=CE=C4=BC=FE=BC=D0=CA=C7=B7=F1=B4=E6=D4=DA
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; =
HelpCtx: Longint):Boolean;
    // =
=B4=F2=BF=AA=D2=BB=B8=F6=D1=A1=D4=F1=CE=C4=BC=FE=BC=D0=B5=C4=B6=D4=BB=B0=BF=
=F2(=D3=A2=CE=C4=B5=C4)=20
----------------------------------------------------------------
=A1=F3var mytextfile:textfile;              =20
begin assignfile(mytextfile,'mytextfile.exe');
reset(mytextfile);//rewrite()=B4=B4=BD=A8=B2=A2=B4=F2=BF=AA=CE=C4=BC=FE=A3=
=A8=D2=D1=D3=D0=BE=CD=B8=B2=B8=C7=A3=A9=A3=ACreset()=D2=D4=D6=BB=B6=C1=B7=
=BD=CA=BD=B4=F2=BF=AA=CE=C4=BC=FE=A3=ACappend()=D2=D4=D7=B7=BC=D3=B7=BD=CA=
=BD=B4=F2=BF=AA=CE=C4=BC=FE=A3=BB
try =20
 //=BF=C9=D2=D4=BC=D3=D2=BB=BE=E4while nit eof(mytextfile) do;
 {
 //=B2=D9=D7=F7=CE=C4=BC=FE
 for i:=3D1 to 5 do
 begin s:=3D'This is line #';
 =
writeln(mytextfile,s,i);//=BD=E1=B9=FB=B1=BB=B4=B4=BD=A8=B5=C4=CE=C4=BC=FE=
=D6=D0=B0=FC=BA=AC this is line # 1=A1=AD=A1=ADthis is line # 5
 =
//writeln()=CE=AA=CD=F9=D6=B8=B6=A8=CE=C4=BC=FE=D6=D0=D0=B4=B6=AB=CE=F7=A3=
=AC=BB=B9=D3=D0readln(mytextfile,s,i)=B4=D3=D6=B8=B6=A8=B5=C4=CE=C4=BC=FE=
=D6=D0=B6=C1=CA=FD=BE=DD;
 end;
 }
 finally
 closefile(mytextfile);
 end;
end;
------------------------------------------------------------------------
=A1=F3edit=D6=BB=C4=DC=BD=D3=CA=D5=CA=FD=D7=D6=20
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);=20
begin
if ((Key < '0') or (Key > '9'))=20
then Key :=3D Chr(0);
end;=20
-----------------------------------------------------------------------
=A1=F3=B4=B4=BD=A8=C2=B7=BE=B6USES  FileCtrl;
if not DirectoryExists(ExtractFilePath(paramstr(0)) + 'ElectronicBill\') =
then
        CreateDir(ExtractFilePath(paramstr(0)) + 'ElectronicBill\');
fileexists();=C5=D0=B6=CF=CE=C4=BC=FE=CA=C7=B7=F1=B4=E6=D4=DA=A1=A3
----------------------------------------------------------------------=20
=A1=F3=D1=A1=D4=F1=D2=BB=B8=F6=C2=B7=BE=B6  USES FileCtrl;
SelectDirectory('=C7=EB=D1=A1=D4=F1=B4=E6=B4=A2=C2=B7=BE=B6=A3=A1', =
'=CE=D2=B5=C4=B5=E7=C4=D4', sSavePath); =20


=A1=F3[DELPHI]=CD=F8=C2=E7=C1=DA=BE=D3=B8=B4=D6=C6=CE=C4=BC=FE
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'=
),false);

=A1=F3[DELPHI]=B2=FA=C9=FA=CA=F3=B1=EA=CD=CF=B6=AF=D0=A7=B9=FB
=CD=A8=B9=FDMouseMove=CA=C2=BC=FE=A1=A2DragOver=CA=C2=BC=FE=A1=A2EndDrag=CA=
=C2=BC=FE=CA=B5=CF=D6=A3=AC=C0=FD=C8=E7=D4=DAPANEL=C9=CF=B5=C4LABEL=A3=BA=

var xpanel,ypanel,xlabel,ylabel:integer;
PANEL=B5=C4MouseMove=CA=C2=BC=FE=A3=BAxpanel:=3Dx;ypanel:=3Dy;
PANEL=B5=C4DragOver=CA=C2=BC=FE=A3=BAxpanel:=3Dx;ypanel:=3Dy;
LABEL=B5=C4MouseMove=CA=C2=BC=FE=A3=BAxlabel:=3Dx;ylabel:=3Dy;
LABEL=B5=C4EndDrag=CA=C2=BC=FE=A3=BAlabel.left:=3Dxpanel-xlabel;label.top=
:=3Dypanel-ylabel;

=A1=F3[DELPHI]=C8=A1=B5=C3WINDOWS=C4=BF=C2=BC
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
=BB=F2=D5=DF=B4=D3=D7=A2=B2=E1=B1=ED=D6=D0=B6=C1=C8=A1=A3=AC=CE=BB=D6=C3=A3=
=BA
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot=BC=FC=A3=AC=C8=A1=B5=C3=C8=E7=A3=BAC:\WINDOWS

=A1=F3[DELPHI]=D4=DAform=BB=F2=C6=E4=CB=FB=C8=DD=C6=F7=C9=CF=BB=AD=CF=DF
var x,y:array [0..50] of integer;
canvas.pen.color:=3Dclred;
canvas.pen.style:=3DpsDash;
form1.canvas.moveto(trunc(x[i]),trunc(y[i]));
form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

=A1=F3[DELPHI]=D7=D6=B7=FB=B4=AE=C1=D0=B1=ED=CA=B9=D3=C3
var tips:tstringlist;
tips:=3Dtstringlist.create;
tips.loadfromfile('filename.txt');
edit1.text:=3Dtips[0];
tips.add('last line addition string');
tips.insert(1,'insert string at NO 2 line');
tips.savetofile('newfile.txt');
tips.free;

=A1=F3[DELPHI]=BC=F2=B5=A5=B5=C4=BC=F4=CC=F9=B0=E5=B2=D9=D7=F7
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;

=A1=F3[DELPHI]=B9=D8=D3=DA=CE=C4=BC=FE=A1=A2=C4=BF=C2=BC=B2=D9=D7=F7
Chdir('c:\abcdir');=D7=AA=B5=BD=C4=BF=C2=BC
Mkdir('dirname');=BD=A8=C1=A2=C4=BF=C2=BC
Rmdir('dirname');=C9=BE=B3=FD=C4=BF=C2=BC
GetCurrentDir;//=C8=A1=B5=B1=C7=B0=C4=BF=C2=BC=C3=FB=A3=AC=CE=DE'\'
Getdir(0,s);//=C8=A1=B9=A4=D7=F7=C4=BF=C2=BC=C3=FBs:=3D'c:\abcdir';
Deletfile('abc.txt');//=C9=BE=B3=FD=CE=C4=BC=FE
Renamefile('old.txt','new.txt');//=CE=C4=BC=FE=B8=FC=C3=FB
ExtractFilename(filelistbox1.filename);//=C8=A1=CE=C4=BC=FE=C3=FB
ExtractFileExt(filelistbox1.filename);//=C8=A1=CE=C4=BC=FE=BA=F3=D7=BA

=A1=F3[DELPHI]=B4=A6=C0=ED=CE=C4=BC=FE=CA=F4=D0=D4
attr:=3Dfilegetattr(filelistbox1.filename);
if (attr and faReadonly)=3DfaReadonly then ... //=D6=BB=B6=C1
if (attr and faSysfile)=3DfaSysfile then ... //=CF=B5=CD=B3
if (attr and faArchive)=3DfaArchive then ... //=B4=E6=B5=B5
if (attr and faHidden)=3DfaHidden then ... //=D2=FE=B2=D8

=A1=F3[DELPHI]=D6=B4=D0=D0=B3=CC=D0=F2=CD=E2=CE=C4=BC=FE
WINEXEC//=B5=F7=D3=C3=BF=C9=D6=B4=D0=D0=CE=C4=BC=FE
winexec('command.com /c copy *.* c:\',SW_Normal);
winexec('start abc.txt');
ShellExecute=BB=F2ShellExecuteEx//=C6=F4=B6=AF=CE=C4=BC=FE=B9=D8=C1=AA=B3=
=CC=D0=F2
function executefile(const =
filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:[e-mail]','','',0);

=A1=F3[DELPHI]=C8=A1=B5=C3=CF=B5=CD=B3=D4=CB=D0=D0=B5=C4=BD=F8=B3=CC=C3=FB=

var hCurrentWindow:HWnd;szText:array[0..254] of char;
begin
hCurrentWindow:=3DGetwindow(handle,GW_HWndFrist);
while hCurrentWindow <> 0 do
begin
if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then =
listbox1.items.add(strpas(@sztext));
hCurrentWindow:=3DGetwindow(hCurrentwindow,GW_HWndNext)