ucustommodule.pas

想做个图片存取的程序

  Function:
    Check file in use
  Parameter:
    fName: File name
  Return value:
    true: In use
    false: No in use
  Example:
    IsFileInUse('C:\a.doc');
}
function IsFileInUse(const fName: string): Boolean;

//-------------------------------//
//53. Copy directory include sub-directory
//-------------------------------//
{
  Function:
    Copy directory include sub-directory
  Parameter:
    sDirName: Source directory name
    sToDirName: To directory
  Return value:
    true: Success
    false: fail
  Example:
    CopyDir('C:\a', 'D:\b');
}
function CopyDir(const sDirName, sToDirName: string): Boolean;

//-------------------------------//
//54. Close CDROM
//-------------------------------//
{
  Function:
    Close CDROM
  Parameter:
    Null
  Return value:
    None
  Example:
    CloseCDROM();
}
//function DeleteDir(const sDirName: string): Boolean;

//-------------------------------//
//55. Create temporery file
//-------------------------------//
{
  Function:
    Create temporery file
  Parameter:
    sPath: The files path
  Return value:
    Created position
  Example:
    CreateTempFile('C:\');
}
function CreateTempFile(const sPath: string): string;

//-------------------------------//
//56. Find files
//-------------------------------//
{
  Function:
    Find files
  Parameter:
    mainpath: The path what want to find
    filename: File name
    foundresult: Find result
  Return value:
    true: Found the files and store the list in foundresult
    false: Not found the file
  Example:
    var
      a: Tstrings;
      i: integer;
    begin
      a := TStringList.Create;
      try
        SearchFile('c:\', 'bird.ico', a);
        edit1.text := inttostr(a.count);
        for i := 0 to a.Count - 1 do
          listbox1.Items.Add(a.Strings[i]);
      finally
        a.Free;
      end;
    end;
}
function SearchFile(mainpath: string; filename: string; var foundresult: TStrings): Boolean;

//-------------------------------//
//57. Get program extension
//-------------------------------//
{
  Function:
    Get program exetention
  Parameter:
    Ext: Extension name like 'ico','exe','gif' etc.
  Return value:
    Extension execute program
  Example:
    GetProgramAssociation('html');
}
function GetProgramAssociation(Ext: string): string;

//-------------------------------//
//58. Get file time
//-------------------------------//
{
  Function:
    Get file time
  Parameter:
    Tf: File name
  Return value:
    Date and time
  Example:
    GetFileTime('C:\a.txt');
}
function myGetFileTime(const Tf: string): string;

//-------------------------------//
//59. Set file date and time
//-------------------------------//
{
  Function:
    Set file date and time
  Parameter:
    Tf: File path and name
    dCreateDate: Create file date
    tCreateTime: Create file time
    dModifyDate: Create file date
    tModifyTime: Create file time
  Return value:
    None
  Example:
    SetFileDateTime('c:\a.txt',DateTimePicker1.Date,
    DateTimePicker2.Time,DateTimePicker3.Date,DateTimePicker4.Time)
}
function SetFileDateTime(const Tf: string; const dCreateDate,
  tCreateTime, dModifyDate, tModifyTime: TDateTime): Boolean;

//-------------------------------//
//60. Get file last access time
//-------------------------------//
{
  Function:
    Get file last access time
  Parameter:
    FileName: File name and path
  Return value:
    Last access time
  Example:
    GetFileLastAccessTime('C:\a.txt');
}
function GetFileLastAccessTime(const FileName: PChar): string;

//-------------------------------//
//61. Create a empty directory
//-------------------------------//
{
  Function:
    Create a empty directory
  Parameter:
    sDirName: Directory name
  Return value:
    None
  Example:
    CreateDirectory('C:\apollo');
}
procedure CreateDirectory(const sDirName: string);

//-------------------------------//
//62. Change directory
//-------------------------------//
{
  Function:
    Change directory
  Parameter:
    sPath: Path
  Return value:
    None
  Example:
    ChangeDirectory('C:\apollo');
}
procedure ChangeDirectory(const sPath: string);

//-------------------------------//
//63. Get a disk current directory
//-------------------------------//
{
  Function:
    Get a disk current directory
  Parameter:
    iDrive: Disk code with integer value as 0, 1, 2 meant default, A, B
  Return value:
    A var meant current directory in a disk
  Example:
    var s: string;
    GetDirectory(0, s);
}
procedure GetDirectory(const iDrive: integer; var sPath: string);

//-------------------------------//
//64. Set current directory
//-------------------------------//
{
  Function:
    Set current directory
  Parameter:
    sPath: Path
  Return value:
    None
  Example:
    SetCurrentDirectory('C:\jessies');
}
procedure SetCurrentDirectory(const sPath: string);

//-------------------------------//
//65. Rename directory or file
//-------------------------------//
{
  Function:
    Rename directory or file
  Parameter:
    sFromName: Source name
    sToName: Destinition name
  Return value:
    None
  Example:
    RenameDirOrFile('c:\apollo', 'c:\jessies');
}
procedure RenameDirOrFile(const sFromName, sToName: string);

//-------------------------------//
//66. Create directory's tree
//-------------------------------//
{
  Function:
    Create directory's tree
  Parameter:
    sPath: Path
  Return value:
    None
  Example:
    sPath('C:\apollo\jessies');
}
procedure CreateMultiDir(const sPath: string);

//-------------------------------//
//67. Directory exists
//-------------------------------//
{
  Function:
    Directory exists
  Parameter:
    sDirName: Directory name and path
  Return value:
    true meant exists
    false meant not exists
  Example:
    DirExist('C:\apollo');
}
function DirExist(const sDirName: string): Boolean;

//-------------------------------//
//68. Change file extension
//-------------------------------//
{
  Function:
    Change file extension
  Parameter:
    sPath: File path and name
    sExtName: Extension name
  Return value:
    None
  Example:
    procedure TForm1.ConvertIcon2BitmapClick(Sender: TObject);
    var
      s : string;
      Icon: TIcon;
    begin
      OpenDialog1.DefaultExt := '.ICO';
      OpenDialog1.Filter := 'icons (*.ico)|*.ICO';
      OpenDialog1.Options := [ofOverwritePrompt, ofFileMustExist, ofHideReadOnly ];
      if OpenDialog1.Execute then
      begin
        Icon := TIcon.Create;
        try
          Icon.Loadfromfile(OpenDialog1.FileName);
          s:= ChangeFileExt(OpenDialog1.FileName,'.BMP');
          Image1.Width := Icon.Width;
          Image1.Height := Icon.Height;
          Image1.Canvas.Draw(0,0,Icon);
          Image1.Picture.SaveToFile(s);
          ShowMessage(OpenDialog1.FileName + ' Saved to ' + s);
        finally
          Icon.Free;
        end;
      end;
    end;
}
//Note: You must be create a new file to be saved
procedure ChangeFileExtension(const sPath, sExtName: string);

//-------------------------------//
//69. Get file extension name
//-------------------------------//
{
  Function:
    Get file extension name
  Parameter:
    sFileName: File name
  Return value:
    Extension name
  Example:
    GetFileExtension('C:\apollo.exe');
}
function GetFileExtension(const sFileName: string): string;

//-------------------------------//
//70. Copy file from source to target
//-------------------------------//
{
  Function:
    Copy file from source to target
  Parameter:
    sourcefilename: Source file
    targetfilename: Target file
  Return value:
    None
  Example:
    FileCopy('C:\apollo.txt', 'C:\jessies.txt');
}
procedure FileCopy1(const sourcefilename, targetfilename: string);

//-------------------------------//
//71. Copy file from source to target
//-------------------------------//
{
  Function:
    Copy file from source to target
  Parameter:
    FromFile: Source file
    ToFile: Target file
  Return value:
    None
  Example:
    FileCopy('C:\apollo.txt', 'C:\jessies.txt');
}
procedure FileCopy2(const FromFile, ToFile: string);

//-------------------------------//
//72. Copy file from source to target
//-------------------------------//
{
  Function:
    Copy file from source to target
  Parameter:
    FromFileName: Source file
    ToFileName: Target file
  Return value:
    None
  Example:
    FileCopy('C:\apollo.txt', 'C:\jessies.txt');
}
procedure FileCopy3(const FromFileName, ToFileName: string);

//-------------------------------//
//73. Set file attributes
//-------------------------------//
{
  Function:
    Set file attributes
  Parameter:
    iMode: Attributes type
    sFileName: File name
  Return value:
    None
  Example:
    SetFileAttribAPI(5, 'C:\apollo.txt');
}
procedure SetFileAttribAPI(const iMode: integer; const sFileName: PChar);

//-------------------------------//
//74. Set file attributes
//-------------------------------//
{
  Function:
    Set file attributes
  Parameter:
    iMode: Attributes type
    sFileName: File name
  Return value:
    None
  Example:
    SetFileAttrib(5, 'C:\apollo.txt');
}
procedure SetFileAttrib(const iMode: integer; const sFileName: string);

//-------------------------------//
//75. Get file path
//-------------------------------//
{
  Function:
    Get file path
  Parameter:
    sFileName: File name
  Return value:
    Path
  Example:
    GetFilePath1('C:\apollo\test\a.exe');
}
function GetFilePath1(const sFileName: string): string;

//-------------------------------//
//76. Get file path
//-------------------------------//
{
  Function:
    Get file path
  Parameter:
    sFileName: File name
  Return value:
    Path
  Example:
    GetFilePath2('C:\apollo\test\a.exe');
}
function GetFilePath2(const sFileName: string): string;

//-------------------------------//
//77. Copy or delete or rename or move files
//-------------------------------//
{
  Function:
    Copy or delete or rename or move files
  Parameter:
    iMode: Operate mode by 1, 2, 3, 4
    sSoure: Source files
    sDestination: Destination files
    blnAbortByUser: Check user if abort the operation
  Return value:
    -1: Mode error
    0 : Okay
    Other value: Abort by user
  Example:
    CopyDelRenMovFile(1, 'D:\mp3', 'D:\mp4' ,blnResult);
    CopyDelRenMovFile(2, 'D:\mp3\没有我你怎么办.mp3', '' ,blnResult);
    CopyDelRenMovFile(3, 'D:\mp3\没有我你怎么办.mp3', 'D:\mp3\a.mp3' ,blnResult);
    CopyDelRenMovFile(4, 'D:\mp3\没有我你怎么办.mp3', 'D:\mp4\没有我你怎么办.mp3' ,blnResult);
}
function CopyDelRenMovFile(const iMode: integer; const sSource,
  sDestination: string; var blnAbortByUser: boolean): integer;

//-------------------------------//
//78. Get used port list
//-------------------------------//
{
  Function:
    Get used port list
  Parameter:
    stComList: Used port list
  Return value:
    None
  Example:
    GetPortUsed(myList);
}
procedure GetPortUsed(var stComList: TStrings);

//-------------------------------//
//79. Set media audio off
//-------------------------------//