function Getcaption(hWnd:longword):string;
var
szwindowText:array[0..MAX_PATH] of char;
szTextLength:integer;
begin
szTextLength:=SendMessage(hWnd,WM_GETTEXT,MAX_PATH,integer(@szWindowText[0]));
szWindowText[szTextLength]:=#0;
Result:=szWindowText
end;
function Get_use:string;
var
main,edit_text:THandle;
begin
result:='';
main:=findwindow('',nil);
if main=0 then exit;
edit_text:=findwindowEx(main,THandle(nil),'',nil);
if edit_text=0 then exit;
result:=Getcaption(edit_text);
end;

-