"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "unit_gwrap.pas" between
peazip-7.7.0.src.zip and peazip-7.7.1.src.zip

About: PeaZip is an OS-portable graphical file archiver, acting as frontend for various open source archiving utilities (incl. its native Pea archive format).

unit_gwrap.pas  (peazip-7.7.0.src):unit_gwrap.pas  (peazip-7.7.1.src)
skipping to change at line 1518 skipping to change at line 1518
Form_gwrap.Caption:=pprogn+' '+pcapt; Form_gwrap.Caption:=pprogn+' '+pcapt;
Form_gwrap.TrayIcon1.Hint:=Form_gwrap.Caption; Form_gwrap.TrayIcon1.Hint:=Form_gwrap.Caption;
Form_gwrap.pm2restore.Caption:=Form_gwrap.Caption; Form_gwrap.pm2restore.Caption:=Form_gwrap.Caption;
Form_gwrap.StringGrid1.Rowcount:=1; Form_gwrap.StringGrid1.Rowcount:=1;
if runelevated=true then if runelevated=true then
begin begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
fe:='0'; fe:='0';
seiexit:=127; seiexit:=127;
wd:=copy(cl,1,pos('.exe',cl)+4); wd:=copy(cl,1,pos('.exe',cl)+4);
w0:=utf8decode((delimiter+wd+delimiter)); w0:=utf8decode(stringdelim(wd));
wd:=copy(cl,pos('.exe',cl)+6,length(cl)-pos('.exe',cl)-4); wd:=copy(cl,pos('.exe',cl)+6,length(cl)-pos('.exe',cl)-4);
cl:=wd; cl:=wd;
w1:=utf8decode(cl); w1:=utf8decode(cl);
FillChar(sei, SizeOf(sei), 0); FillChar(sei, SizeOf(sei), 0);
sei.cbSize := SizeOf(sei); sei.cbSize := SizeOf(sei);
sei.Wnd := 0; sei.Wnd := 0;
sei.fMask := SEE_MASK_NOCLOSEPROCESS; sei.fMask := SEE_MASK_NOCLOSEPROCESS;
sei.lpVerb := PWideChar ('runas'); sei.lpVerb := PWideChar ('runas');
sei.lpFile := PWideChar (w0); sei.lpFile := PWideChar (w0);
sei.lpParameters := PWideChar (w1); sei.lpParameters := PWideChar (w1);
skipping to change at line 1920 skipping to change at line 1920
procedure TForm_gwrap.Button1Click(Sender: TObject); procedure TForm_gwrap.Button1Click(Sender: TObject);
begin begin
go_ok; go_ok;
end; end;
procedure TForm_gwrap.ImageSavePJClick(Sender: TObject); procedure TForm_gwrap.ImageSavePJClick(Sender: TObject);
begin begin
save_cl; save_cl;
end; end;
procedure msg_pw_errorchar;
var
errchar:ansistring;
begin
{$IFDEF MSWINDOWS}
errchar:='"';
{$ELSE}
errchar:='''';
{$ENDIF}
pMessageWarningOK(errchar+' '+txt_2_3_pw_errorchar_gwrap);
end;
procedure TForm_gwrap.ButtonStop1Click(Sender: TObject); procedure TForm_gwrap.ButtonStop1Click(Sender: TObject);
var var
p:TPoint; p:TPoint;
begin begin
p.x:=ButtonStop1.Left; p.x:=ButtonStop1.Left;
p.y:=ButtonStop1.top+ButtonStop1.Height; p.y:=ButtonStop1.top+ButtonStop1.Height;
p:=clienttoscreen(p); p:=clienttoscreen(p);
popupmenu1.popup(p.x,p.y); popupmenu1.popup(p.x,p.y);
end; end;
skipping to change at line 2206 skipping to change at line 2194
begin begin
explore_out; explore_out;
end; end;
procedure TForm_gwrap.Label4Click(Sender: TObject); procedure TForm_gwrap.Label4Click(Sender: TObject);
var var
P:TProcessUTF8; P:TProcessUTF8;
bin_name,in_param:ansistring; bin_name,in_param:ansistring;
begin begin
P:=TProcessUTF8.Create(nil); P:=TProcessUTF8.Create(nil);
in_param:=delimiter+escapefilename(cl,desk_env)+delimiter; in_param:=stringdelim(escapefilename(cl,desk_env));
bin_name:=delimiter+escapefilename(peazippath,desk_env)+'peazip'+EXEEXT+delimite bin_name:=stringdelim(escapefilename(peazippath,desk_env)+'peazip'+EXEEXT);
r;
{$IFDEF MSWINDOWS}P.Options := [poNoConsole];{$ELSE}P.Options := [poNoConsole, p oWaitOnExit];{$ENDIF} {$IFDEF MSWINDOWS}P.Options := [poNoConsole];{$ELSE}P.Options := [poNoConsole, p oWaitOnExit];{$ENDIF}
cl:=bin_name+' -ext2open '; //ext2open handles a single input in open interface cl:=bin_name+' -ext2open '; //ext2open handles a single input in open interface
P.Parameters.Add('-ext2open'); P.Parameters.Add('-ext2open');
cl:=cl+in_param;//(cl was not transformed in utf8 before) cl:=cl+in_param;//(cl was not transformed in utf8 before)
P.Parameters.Add(in_param); P.Parameters.Add(in_param);
P.Executable:=bin_name; P.Executable:=bin_name;
if validatecl(cl)<>0 then begin pMessageWarningOK(txt_2_7_validatecl+' '+cl); ex it; end; if validatecl(cl)<>0 then begin pMessageWarningOK(txt_2_7_validatecl+' '+cl); ex it; end;
P.Execute; P.Execute;
P.Free; P.Free;
Application.Terminate; Application.Terminate;
 End of changes. 3 change blocks. 
16 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)