tinystory

uses

  Winapi.ImageHlp, Winapi.Windows;

function GetDLLExports(const AFileName: AnsiString; AList: TStrings): Boolean;

var

  Image: LoadedImage;

  pExport: PImageExportDirectory;

  pNames: PDWORD;

  Dummy: DWORD;

  I: DWORD;

begin

  Result := MapAndLoad(PAnsiChar(AFileName), nil, @Image, True, True);

  if Result then begin

    try

      pExport := ImageDirectoryEntryToData(Image.MappedAddress, False, IMAGE_DIRECTORY_ENTRY_EXPORT, ULONG(Dummy));

      if pExport <> nil then begin

        pNames := ImageRvaToVa(Image.FileHeader, Image.MappedAddress, pExport^.AddressOfNames, Pointer(Dummy));

        for I := 0 to Pred(pExport^.NumberOfNames) do begin

          AList.Add(String(PAnsiChar(ImageRvaToVa(Image.FileHeader, Image.MappedAddress, pNames^, Pointer(Dummy)))));

          Inc(pNames);

        end;

      end else begin

        Result := False;

      end;

    finally

      UnMapAndLoad(@Image);

    end;

  end;

end;

AnsiString __fastcall TextEllipsis(TCanvas *C, AnsiString V, int W, const AnsiString &P = "...")

{

for (C->TextWidth(V) > W? V += P: V; V.Length() > 0 && C->TextWidth(V) > W; V.Delete(V.Length() - P.Length(), 1));

if (ByteType(V, V.Length() - P.Length()) == mbLeadByte) {

V.Delete(V.Length() - P.Length(), 1);

}

return V;

}

#include <System.Win.Comobj.hpp>

::ShellExecute(NULL, L"runas", L"taskkill", String().sprintf(L"/pid %d /f", dwProcessId).c_str(), NULL, SW_HIDE);

원본

//   Important note about DLL memory management when your DLL uses the

//   static version of the RunTime Library:

//

//   If your DLL exports any functions that pass String objects (or structs/

//   classes containing nested Strings) as parameter or function results,

//   you will need to add the library MEMMGR.LIB to both the DLL project and

//   any other projects that use the DLL.  You will also need to use MEMMGR.LIB

//   if any other projects which use the DLL will be performing new or delete

//   operations on any non-TObject-derived classes which are exported from the

//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling

//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,

//   the file BORLNDMM.DLL should be deployed along with your DLL.

//

//   To avoid using BORLNDMM.DLL, pass string information using "char *" or

//   ShortString parameters.

//

//   If your DLL uses the dynamic version of the RTL, you do not need to

//   explicitly add MEMMGR.LIB as this will be done implicitly for you

해석

//   정적 Runtime library 를 사용하는 DLL 메모리 관리에 관한 중요 사항:

//

//   DLL 이 매개변수 또는 반환 값으로 String 객체 (또는 String 을 포함하는

//   구조체/클래스) 를 전달하는 경우, MEMMGR.LIB 를 DLL 프로젝트와 DLL 을

//   사용하는 다른 프로젝트에 추가하여야 한다. 또한 DLL 을 사용하는 프로젝트가

//   DLL 에서 export 된 TObject 에서 상속받지 않은 클래스를 new 또는 delete

//   하는 경우 MEMMGR.LIB 를 추가해야 한다. MEMMGR.LIB 를 프로젝트에 추가하면

//   DLL 과 그것을 호출하는 EXE 의 메모리 관리자를 BORLNDMM.DLL 로 변경됩니다.

//   이경우, BORLNDMM.DLL 은 당신의 DLL 과 함께 배포해야 합니다.

//

//   BORLNDMM.DLL 사용을 피하기위해, "char *" 또는 ShortString 매개 변수로

//   문자열 정보를 전달하시오.

//

//   동적 RTL 을 사용할 경우, MEMMGR.LIB 가 암시적으로 추가되므로 이를

//   명시할 필요가 없다.

uses

  Vcl.StdCtrls;

type

  TListBox = class(Vcl.StdCtrls.TListBox)

  private

    FMaxWidth: Integer;

  protected

    procedure WndProc(var Message: TMessage); override;

  end;

implementation

procedure TListBox.WndProc(var Message: TMessage);

var

  iTextWidth: Integer;

  procedure ItemAdded(AValue: PChar);

  begin

    iTextWidth := Canvas.TextWidth(AValue);

    if iTextWidth > FMaxWidth then begin

      InterlockedExchange(FMaxWidth, iTextWidth);

      Perform(LB_SETHORIZONTALEXTENT, FMaxWidth + 2, 0);

    end;

  end;

  procedure ItemDeleted(AItemIndex: Integer);

  var

    iMaxWidth: Integer;

    I: Integer;

  begin

    if (0 > AItemIndex) or (AItemIndex >= Items.Count) then

      Exit;

    iTextWidth := Canvas.TextWidth(Items.Strings[AItemIndex]);

    if iTextWidth < FMaxWidth then

      Exit;

    iMaxWidth := 0;

    for I := 0 to Pred(Items.Count) do begin

      if I <> AItemIndex then begin

        iTextWidth := Canvas.TextWidth(Items.Strings[I]);

        if iTextWidth > iMaxWidth then

          iMaxWidth := iTextWidth;

      end;

    end;

    if iMaxWidth <> FMaxWidth then begin

      InterlockedExchange(FMaxWidth, iMaxWidth);

      Perform(LB_SETHORIZONTALEXTENT, FMaxWidth + 2, 0);

    end;

  end;

begin

  if (Message.Msg = LB_ADDSTRING) or (Message.Msg = LB_INSERTSTRING) then begin

    ItemAdded(PChar(Message.LParam));

  end else if Message.Msg = LB_DELETESTRING then begin

    ItemDeleted(Message.WParam);

  end else if Message.Msg = WM_CREATE then begin

    InterlockedExchange(FMaxWidth, 0);

  end;

  inherited;

end;

template<class T>

void __fastcall SafeFreeAndNil(T **Obj)

{

delete (T*)InterlockedExchangePointer(*Obj, NULL);

}