[VCL] Textbreite in Pixeln ohne Canvas ermitteln?

[sx2008]

Man kann sich auch den Canvas vom Desktop holen:

Delphi-Quellcode:

function windowsDesktopCanvas: TCanvas; 
var 
DC: HDc; 
begin 
 DC := getWindowDC ( GetDeskTopWindow() ); 
 result := TCanvas.Create; 
 result.Handle := DC; 
end;