DrawShadowText in Delphi (commctrl.h/ComCtl32.dll)

[Luckie]

Delphi-Quellcode:

function DrawShadowText(hdc: HDC; pszText: LPCWSTR; cch: UINT;
   const pRect: PRect; dwFlags: DWORD; crText: COLORREF; crShadow: COLORREF;
   ixOffset: Integer; iyOffset: Integer): Integer; stdcall; external 'ComCtl32.dll';

implementation

{$R *.dfm}


procedure TForm1.FormPaint(Sender: TObject);
var
  rect: TRect;
begin
  rect.Top := 10;
  rect.Left := 10;
  rect.Bottom := 50;
  rect.Right := 150;
  DrawShadowText(Canvas.Handle, 'Hello world', 11, @rect, 0, COLORREF(RGB(255,255,255)), COLORREF(RGB(100,100,100)), 25, 25);
end;

Und das Manifest muss den Dateinamen haben: <Project1>.exe.manifest, wobei Project1 deinem Exe-Namen vor der Erweiterung entspricht. In diesem Fall hieße die Exe: Project1.exe