delphi - How to edit a file using a specified editor? -


currently, i'm using following function in order open file using default editor , sure application waits until user closes editor window.

function editandwait(const afilename : string) : boolean; var   info: tshellexecuteinfo; begin   fillchar(info, sizeof(info), 0);   info.cbsize := sizeof(info);   info.lpverb := 'edit';   info.lpfile := pansichar(afilename);   info.nshow := sw_show;   info.fmask := see_mask_nocloseprocess;   result := shellexecuteex(@info);   if(result) , (info.hprocess <> 0)    begin     waitforsingleobject(info.hprocess, infinite);     closehandle(info.hprocess);   end; end;

i write similar function allow specify editor executable use editing.

function editandwait(const afilename : string; const aeditor : string) : boolean; begin   //... end;

as david said, have run editor program , pass file parameter.

there several ways it. similar current function:

function editandwait(const afilename : string; const aeditor : string) : boolean; var   info: tshellexecuteinfo; begin   fillchar(info, sizeof(info), 0);   info.cbsize := sizeof(info);   info.lpverb := 'open';   info.lpfile := pchar(aeditor);   info.nshow := sw_show;   info.fmask := see_mask_nocloseprocess;   info.lpparameters := pchar(afilename);   result := shellexecuteex(@info);   if(result) , (info.hprocess <> 0)    begin     closehandle(info.hprocess);     waitforsingleobject(info.hprocess, infinite);   end; end;

-

Comments

Post a Comment

Popular posts from this blog

java - Jasper subreport showing only one entry from the JSON data source when embedded in the Title band -

Image
i having issues populating data in subreport in title band of main report. data populated correctly in subreport in detail band of main report. trying find wrong in json query. appreciated. json sample data source (expenses.json) { "expenses": { "date": "8 sep 2016", "accounts": [ { "title": "xyz corp (111)", "accountname": "xyz corp", "accountnumber": "111", "transactions": [ { "date": "21 jun 2016", "name": "gas", "price": "17.50" }, { "date": "12 may 2016", "name": "shopping", "price": "111.99" }, { "date": "30 apr 2016", "name...
Read more

serialization - Convert Any type in scala to Array[Byte] and back -

i have following question: i have variable value in program declared value. i want convert value byte array.. how can serialize byte array , back? found examples related other types such double or int, not any. this should need. it's pretty similar how 1 in java. import java.io.{bytearrayinputstream, bytearrayoutputstream, objectinputstream, objectoutputstream} object serialization extends app { def serialise(value: any): array[byte] = { val stream: bytearrayoutputstream = new bytearrayoutputstream() val oos = new objectoutputstream(stream) oos.writeobject(value) oos.close stream.tobytearray } def deserialise(bytes: array[byte]): = { val ois = new objectinputstream(new bytearrayinputstream(bytes)) val value = ois.readobject ois.close value } println(deserialise(serialise("my test"))) println(deserialise(serialise(list(1)))) println(deserialise(serialise(map(1 -> 2)))) println(deserialise(seri...
Read more

SonarQube Plugin for Jenkins does not find SonarQube Scanner executable -

Image
i trying run sonarqube scanner within jenkins post-build step. however, keep getting error message below: ------------------------------------------------------------------------ sonar analysis failed ------------------------------------------------------------------------ fatal: sonarqube scanner executable not found sonarqube build step 'execute sonarqube scanner' marked build failure from similar questions on stackoverflow read 1 should choose "install automatically" sonarqube scanner, have done. my configurations follows: sonarqube 6.0 jenkins 1.609.3 sonarqube plugin 2.4.4 sonarqube servers sonarqube scanner build-step when config sonarqube scanner in manage jenkins --> global tool configuration --> sonarqube scanner, besides select "install automatically", need add installer. see screenshot here: sonarqube scanner --> add installer
Read more