Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- Removed Simple Mode;

Browse Source 
- Fixed Different Bitmode View;
 - Fixed Directory Scan;
 - Other improvements.
This commit is contained in:
meffi@lab313.ru
2014-02-18 22:07:44 +00:00
parent b84a8264a2
commit 20f1dbf7ce
17 changed files with 445 additions and 11990 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
units/uCDIMAGE.pas
View File

@@ -32,10 +32,10 @@ type
PCDSector = ^TCDSector;
function GetImageScan(const FileName: string): Boolean;
function ReplaceTimInFile(const FileName, TimToInsert: string; InsertTo: DWORD;
function ReplaceTimInFile(const FileName, TimToInsert: string; InsertTo: Integer;
ImageScan: Boolean): Boolean;
procedure ReplaceTimInFileFromMemory(const FileName: string; TIM: PTIM;
InsertTo: DWORD; ImageScan: Boolean);
InsertTo: Integer; ImageScan: Boolean);
implementation
@@ -87,16 +87,16 @@ begin
end;
procedure ReplaceTimInFileFromMemory(const FileName: string; TIM: PTIM;
InsertTo: DWORD; ImageScan: Boolean);
InsertTo: Integer; ImageScan: Boolean);
type
TSecAddrAndMode = array [0 .. cSectorAddressSize + cSectorModeSize - 1] of byte;
var
sImageStream: TFileStream;
TimOffsetInSector, FirstPartSize, LastPartSize: DWORD;
TimSectorNumber, TimStartSectorPos: DWORD;
TimOffsetInSector, FirstPartSize, LastPartSize: Integer;
TimSectorNumber, TimStartSectorPos: Integer;
Sector: TCDSector;
ecc: DWORD;
P, TIM_FULL_SECTORS: DWORD;
P, TIM_FULL_SECTORS: Integer;
SecAddrAndMode: TSecAddrAndMode;
begin
sImageStream := TFileStream.Create(FileName, fmOpenReadWrite or
@@ -202,11 +202,11 @@ begin
sImageStream.free;
end;
function ReplaceTimInFile(const FileName, TimToInsert: string; InsertTo: DWORD;
function ReplaceTimInFile(const FileName, TimToInsert: string; InsertTo: Integer;
ImageScan: Boolean): Boolean;
var
SIZE, P: DWORD;
SIZE, P: Integer;
TIM: PTIM;
begin
Result := False;