The other part:
unit patchbds;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
offset : array [1..7]of integer =($DC99,$DC9A,$DC9B,$DC9C,$DC9E,$DFB1,$DFB2);
original : array [1..7] of byte =($0F,$84,$C6,$02,$00,$75,$1F );
patch : array [1..7] of byte =($E9,$C7,$02,$00,$90,$90,$90);
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Odlg : TOpenDialog;
hfile :Thandle;
i : integer;
begin
Odlg := TOpenDialog.Create(self);
Odlg.InitialDir := GetCurrentDir;
Odlg.Options := [ofFileMustExist];
Odlg.Filter :=
'Executable|*.exe' ;
if Odlg.Execute
then ShowMessage('File : '+Odlg.FileName)
else ShowMessage('Open file was cancelled');
begin
Odlg.InitialDir:=ExtractFilePath(Application.ExeName);
hfile:= FileOpen(odlg.FileName,fmOpenWrite);
for i := low (patch) to high (patch) do
begin
FileSeek (hfile, Offset,0);
FileWrite (hfile, patch,1);
end;
FileClose(hfile);
end;
end;
end.
So, I on Prolaz forum found other links form the same directory, but 544 files (you posted 239). Your files contain D09 for W32 only?CodeGear Delphi 2009 Tiburon (version 12.0.3155.16733)- Full Version!
I'm posted only english version, on prolaz include in 544 files version: english, french, german, japaneseSo, I on Prolaz forum found other links form the same directory, but 544 files (you posted 239). Your files contain D09 for W32 only?
var
offset : array [1..7]of integer =($DC99,$DC9A,$DC9B,$DC9C,$DC9E,$DFB1,$DFB2);
original : array [1..7] of byte =($0F,$84,$C6,$02,$00,$75,$1F );
patch : array [1..7] of byte =($E9,$C7,$02,$00,$90,$90,$90);
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Odlg : TOpenDialog;
hfile :Thandle;
i : integer;
begin
Odlg := TOpenDialog.Create(self);
Odlg.InitialDir := GetCurrentDir;
Odlg.Options := [ofFileMustExist];
Odlg.Filter :=
'Executable|*.exe' ;
if Odlg.Execute
then ShowMessage('File : '+Odlg.FileName)
else ShowMessage('Open file was cancelled');
begin
Odlg.InitialDir:=ExtractFilePath(Application.ExeName);
hfile:= FileOpen(odlg.FileName,fmOpenWrite);
for i := low (patch) to high (patch) do
begin
FileSeek (hfile, Offset,0);
FileWrite (hfile, patch,1);
end;
FileClose(hfile);
end;
end;
end.
http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft internet explorer 6.7zip
http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft jsharp runtime 2.0.7zip
http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft mdac 2.81.7zip
http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft windows installer 3.0.7zip
Clever Internet Suite v 6.2 D2007. Any idea?
I only have this version v. 6.2.145.19. I know this is old (it's 3 September 2007 update), but i think there aren't any later update since. I hope this will help.
Clever Internet Suite 6.2.145.19 (Как увидеть ссылки? | How to see hidden links?)
Other links for missing files in Delphi 2009 download.
Код:http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft internet explorer 6.7zip http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft jsharp runtime 2.0.7zip http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft mdac 2.81.7zip http://installers.codegear.com.edgesuite.net/prereq/radstudio/5.0/microsoft windows installer 3.0.7zip