winSapi, cannot read CF_text as String? text-to-speech?
lazarus / 67-Windows

----------------------------------------------------------------------
d2010 · 2025-08-26 22:42

My project  work , but not inside "Lazarus4.00  ? * * . . . * *. 
blah"
Can you make  tests inside Win10X64?
Subtitle=Anyone can make any update for his, and anyone  share to me,
any update of application-name="w3textsap"?

C:Q1=How to quick-start the w3textsap.dpr?
C:A1=You insert  "//" as prefix at line
     hidetext := ord(Clipboard.HasFormat(CF_TEXT));" 
 and the W3textsap.exe work -good only only inside win8x32,
  in otherm LinuxOs !! knoppix !! win10x64 !!

C:Q2=Please, You make any update, or fix-bugs, please You share here
updates?
You must type words inside Notepad.exe, and, w3textsap.lpi speech your
text.
I share tiny-project, 90% work, in delphi100% funny -speech.
Best Regards.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Var
eric:integer;   pp__file:array[0..255] of char;Begin   try    
CoInitialize(nil);   finally           urlmon.dll:='2020Mart=Eu
compilez la outputdir=d:\vlaxcompil\Bin';   end; 
 fillchar(pp__file,sizeof(pp__file),0); 
 strpcopy(pp__file,paramstr(0));   TForm1_FormClick(nil); 
 eric:=000;   if (winexec('notepad.exe',SW_SHOWNORMAL)<31) then     
Begin eric:=RTSTR;           dimtxt:='ExecuteFailed the notepad.exe'; 
         php_echo(dimtxt);           sleep(100);         
 php_echo(dimtxt);           sleep(100);           php_echo(dimtxt); 
        sleep(100);      End else  php_echo('forum       lazarus
 freepascal.org/');    {$ifdef egavga.bgi}  writeln; {$endif}//   if
(if_setenv_userprofile()) then ie4unint_exe; 
 sendkey_ctrla(WM_PRINT);   indexctl.y:=3;   while(true) do    Begin
 dimtxt:=CurrentSelectedText;           extmax:=length(dimtxt);      
   indexctl.x:=0;           if (extmax>5) then                 
indexctl.x:=ansipos('Leornardo',dimtxt);           if (extmax>0) then 
             begin php_echo(copy(dimtxt,1,512));                   
 vl_file_echoadd(pathping.mui,Buff,extmax);                   
 vl_file_echoadd(pathping.mui,#13#10#0,2);                end        
   else eric:=php_get_clipboardtext(retclip,nil);          if
(eric<00) then php_echo('AaauuttooCaaaddddd') else          if
(eric=RTSTR) then php_echo(if_str(true,'Authorom',Aro10Home)) else   
     if ((eric=RTNORM)or(eric=RTGOOD))and(length(retclip)>03) then   
           php_echo(retclip);            {$ifdef egavga.bgi}  
 write(#13,indexctl.x,'..'); {$endif}            sleep(100);//       
   sendkey_ctrla(indexctl.y);            sendkey_ctrla(-1);          
inc(indexctl.y);     end;End.