Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>I am using resource for my update program. i was compile resource with brcc32 than compile updater program. when updater program run its self check everything and write or update with new ones. but about this process you have to right write,delete privileges at where your programs run.</p> <p>i am adding a sample code to below.</p> <p>file exe.rc</p> <pre><code>newprog RCDATA Application.exe </code></pre> <p>file makeres.bat</p> <pre><code>brcc32 exe.rc </code></pre> <p>file updater.dpr</p> <pre><code>{$R exe.res} </code></pre> <p>unit file and procedures</p> <pre><code>procedure ExtractRes(resname,fname,ext:string); var rStream:TResourceStream; fStream:TFileStream; fNamex:string; begin fNamex:=ExtractFilePath(Application.ExeName)+fname+'.'+ext; if not fileExists(fnamex) then begin try rStream:=tresourcestream.Create(hinstance,ResName,RT_rcDATA); fStream := TFileStream.Create(fnamex, fmCreate); fStream.CopyFrom(rStream, 0); finally rStream.Free; fstream.Free; end; end; end; procedure TForm1.Timer1Timer(Sender: TObject); var apath:string; begin if Timer1.Enabled then Timer1.Enabled:=false; apath:=ExtractFilePath(Application.ExeName); lblMesg.Caption:='Backup old version'; Application.ProcessMessages; if FileExists(apath+'Application_old.bak') then DeleteFile(apath+'Application_old.bak') ; while FileExists(apath+'Application.exe') do begin RenameFile(apath + 'Application.exe', apath + 'Application_old.bak'); sleep(1); if FileExists(apath+'Application.exe') then begin lblMesg.Caption:='It seems application still running. Waiting for end'; if FileExists(apath+'Application_old.bak') then DeleteFile(apath+'Application_old.bak'); DeleteFile(apath+'Application.exe'); end; Application.ProcessMessages; end; lblMesg.Caption:='Creating New Version..'; Application.ProcessMessages; ExtractRes('Application','Application','exe'); lblMesg.Caption:='Running New Version...'; Application.ProcessMessages; WinExec(pchar(apath+'Application.exe'),sw_show); Application.ProcessMessages; Halt; end; </code></pre> <p>i think this can help your 1,2,3 question. For 4 you can extend code.</p>
    singulars
    1. This table or related slice is empty.
    1. POSelf-extracting Delphi program
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USsabri.arslan
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POSelf-extracting Delphi program
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COHello! 1, I need to extract files to a temporary directory and run my program there. Some dlls need to be in the same directory with the program and if the program is run without admin rights, it can't use the base directory for extraction of files. 2, My program uses a dll to connect to the database. If I try to delete the dll after being disconnected, it's still in use by the DB components. Thus, I'd need to call a separate program just to delete the files causing all sort of problems
      singulars
      1. PO
      1. USSteve
    2. COi understand. you need elevation for vista and 7. but for xp standart limited users you need to prompt user the run as administrator. i don't know xp soluiton, but i know you have to run process from inside your code again with shellexecuteex. if you google it you found good examples. but for elevation i can send a sample project.
      singulars
      1. PO
      1. USsabri.arslan
    3. COSo here is the final solution and yours is the closest: I've decided to write my own extractor program. Steps: 1, Extractor program extracts files from resource 2, Extractor program launches main updater using ShellExecuteEx 3, Once the updater is finished, the extractor program deletes files from the temp folder. This turned out to be the best solution instead of using 3rd party bullshit. Thanks!
      singulars
      1. PO
      1. USSteve
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload