取一些通用函数

function GetAppPath: String;
begin
  Result := ExtractFilePath(Application.ExeName);
end;

Function GetPcName:String;
Var
  buffer:array[0..254]of char;
  Size:Dword;
begin
  Size:=SizeOf(Buffer);
  GetComputerName(buffer,Size);
  result:=String(Buffer);
end;

function InputQuery(const ACaption, APrompt: string; var Value: string):
    Boolean;

 var
  Form: TForm;
  Prompt: TLabel;
  Edit: TEdit;
  DialogUnits: TPoint;
  ButtonTop, ButtonWidth, ButtonHeight: Integer;


begin
  Result := False;
  Form := TForm.Create(Application);
  with Form do
    try
      Font.Name:='宋体';     //指定字体
      Font.Size:=9;
      Canvas.Font := Font;
      DialogUnits := GetAveCharSize(Canvas);
      BorderStyle := bsDialog;
      Caption := ACaption;
      ClientWidth := MulDiv(180, DialogUnits.X, 4);
      Position := poScreenCenter;
      Prompt := TLabel.Create(Form);
      with Prompt do
      begin
        Parent := Form;
        Caption := APrompt;
        Left := MulDiv(8, DialogUnits.X, 4);
        Top := MulDiv(8, DialogUnits.Y, 8);
        Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
        WordWrap := True;
      end;
      Edit := TEdit.Create(Form);
      with Edit do
      begin
        Parent := Form;
        Left := Prompt.Left;
        Top := Prompt.Top + Prompt.Height + 5;
        Width := MulDiv(164, DialogUnits.X, 4);
        MaxLength := 0;
        Text := Value;
        SelectAll;
      end;
      ButtonTop := Edit.Top + Edit.Height + 15;
      ButtonWidth := MulDiv(50, DialogUnits.X, 4);
      ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
      with TButton.Create(Form) do
      begin
        Parent := Form;
        Caption := '确定(&O)'; 
        ModalResult := mrOk;
        Default := True;
        SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
          ButtonHeight);
      end;
      with TButton.Create(Form) do
      begin
        Parent := Form;
        Caption := '取消(&C)';
        ModalResult := mrCancel;
        Cancel := True;
        SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight);
        Form.ClientHeight := Top + Height + 13;          
      end;
      if ShowModal = mrOk then
      begin
        Value := Edit.Text;
        Result := True;
      end;
    finally
      Form.Free;
    end;
end;

function AntiLoader():Boolean;
var
  isDebuggerPresent: function:Boolean;
  Addr: THandle;
begin
  Addr := LoadLibrary('kernel32.dll');
  isDebuggerPresent := GetProcAddress(Addr, 'IsDebuggerPresent');
  if isDebuggerPresent then
    Result:=True
  else
    Result:=False;
end;

function CoCreateGUID: String;
var
  guid: TGUID;
  s: string;
begin
  activex.CoCreateGUID(guid);
  s := GUIDToString(guid);
  Result := Copy(s, 2, Length(s) - 2);
end;

function DoRemoveDir(sDirName:String): Boolean;
var
  hFindFile:Cardinal;
  tfile:String;
  sCurDir:String;
  bEmptyDir:Boolean;
  FindFileData:WIN32_FIND_DATA;
begin
  bEmptyDir:=True;
  sCurDir:=GetCurrentDir;
  SetLength(sCurDir,Length(sCurDir));
  ChDir(sDirName);
  hFindFile:=FindFirstFile('*.*',FindFileData);
  if hFindFile<>INVALID_HANDLE_VALUE then
  begin
    repeat
      tfile:=FindFileData.cFileName;
      if (tfile='.') or (tfile='..') then
      begin
        bEmptyDir:=bEmptyDir and True;
        Continue;
      end;
      bEmptyDir:=False;
      if FindFileData.dwFileAttributes= FILE_ATTRIBUTE_DIRECTORY then
      begin
          if sDirName[Length(sDirName)]<>'\' then
            DoRemoveDir(sDirName+'\'+tfile)
          else
            DoRemoveDir(sDirName+tfile);
          result:=  RemoveDirectory(PChar(tfile));
      end
      else
      begin
        result := DeleteFile(PChar(tfile))
      end;
    until FindNextFile(hFindFile, FindFileData)=false;
    windows.FindClose(hFindFile);
  end else
  begin
    ChDir(sCurDir);
    result:=false;
    exit;
  end;
  if bEmptyDir then
  begin
    ChDir('..');
    RemoveDirectory(PChar(sDirName));
  end;
  ChDir(sCurDir); 
  result:=true;
end;

• ExpandFileName() 返回文件的全路径(含驱动器、路径) 
• ExtractFileExt() 从文件名中抽取扩展名 
• ExtractFileName() 从文件名中抽取不含路径的文件名 
• ExtractFilePath() 从文件名中抽取路径名 
• ExtractFileDir() 从文件名中抽取目录名 
• ExtractFileDrive() 从文件名中抽取驱动器名 
• ChangeFileExt() 改变文件的扩展名 
• ExpandUNCFileName() 返回含有网络驱动器的文件全路径 
• ExtractRelativePath() 从文件名中抽取相对路径信息 
• ExtractShortPathName() 把文件名转化为DOS的8·3格式 
• MatchesMask() 检查文件是否与指定的文件名格式匹配 
• ExtractFilePath(FileName:String) 
• 该函数返回路径名，其结尾字符总是“\”