Читать «Виртуальная библиотека Delphi» онлайн - страница 2

 IObject := CreateComObject(CLSID_ShellLink);

 SLink := IObject as IShellLink;

 PFile := IObject as IPersistFile;

 with SLink do begin

  SetArguments(PChar(Param));

  SetDescription(PChar(Desc));

  SetPath(PChar(PathObj));

 end;

 PFile.Save(PWChar(WideString(PathLink)), FALSE);

end;

Затенить кнопку «Закрыть» в заголовке формы

Следующий текст убирает команду «закрыть» из системного меню и одновременно делает серой кнопку «закрыть» в заголовке формы:

procedure TForm1.FormCreate(Sender: TObject);

var hMenuHandle:HMENU;

begin

 hMenuHandle := GetSystemMenu(Handle, FALSE);

 IF (hMenuHandle <> 0) THEN DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;

Копирование файлов

Копирование методом TurboPascal

Type

 TCallBack=procedure(Position,Size:Longint); {Для индикации процесса копирования}

procedure FastFileCopy(Const InfileName, OutFileName: String; CallBack: TCallBack);

Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат }

Type

 PBuffer = ^TBuffer;

 TBuffer = array [1..BufSize] of Byte;

var

 Size : integer;

 Buffer : PBuffer;

 infile, outfile : File;

 SizeDone,SizeFile: Longint;

begin

 if (InFileName <> OutFileName) then begin

  buffer := Nil;

  AssignFile(infile, InFileName);

  System.Reset(infile, 1);

  try

   SizeFile := FileSize(infile);

   AssignFile(outfile, OutFileName);

   System.Rewrite(outfile, 1);

   try

    SizeDone := 0; New(Buffer);

    repeat

     BlockRead(infile, Buffer^, BufSize, Size);

     Inc(SizeDone, Size);

     CallBack(SizeDone, SizeFile);

     BlockWrite(outfile,Buffer^, Size)

    until Size < BufSize;

    FileSetDate(TFileRec(outfile).Handle,

    FileGetDate(TFileRec(infile).Handle));

   finally

    if Buffer <> Nil then Dispose(Buffer);

    System.close(outfile)

   end;

  finally

   System.close(infile);

  end;

 end else Raise EInOutError.Create('File cannot be copied into itself');

end;

Копирование методом потока

Procedure FileCopy(Const SourceFileName, TargetFileName: String);

Var

 S,T : TFileStream;

Begin

 S := TFileStream.Create(sourcefilename, fmOpenRead );

 try

  T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);

  try

   T.CopyFrom(S, S.Size ) ;

   FileSetDate(T.Handle, FileGetDate(S.Handle));

  finally

   T.Free;

  end;

 finally

  S.Free;

 end;

end;

Копирование методом LZExpand

uses LZExpand;

procedure CopyFile(FromFileName, ToFileName : string);