Mega Code Archive

 

Categories / Delphi / Examples

 

Büyük metinlerin panodan alınması

Codec By GeNiUS ! genius@turkiye.com var Buffer: PChar; MyHandle : THandle; TextLength : Integer; begin MyHandle := Clipboard.GetAsHandle(CF_TEXT); Buffer := GlobalLock(MyHandle); If Buffer = Nil then begin GlobalUnlock(MyHandle); exit; end; TextLength := StrLen(buffer);