sorry, but that codes very not simple for me, too big and i dont understand what do there
i guess code in Delphi less & easier than in AHK...
i need one simple thing, i know about WinHex, thanks..
Find all "D:\" and Replace with "E:\" in below file
Code:
%A_AppData%\uTorrent\Resume.dat
Delphi exampleCode:
procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
l: Longint;
FileName, oldstring, newstring, s: string;
begin
oldstring := 'old string';
newstring := 'new string';
FileName := 'c:\YourFileName.xyz';
s := oldstring;
AssignFile(f, FileName);
Reset(f, 1);
for l := 0 to FileSize(f) - Length(oldstring) - 1 do
begin
Application.ProcessMessages;
Seek(f, l);
BlockRead(f, oldstring[1], Length(oldstring));
if oldstring = s then
begin
Seek(f, l);
BlockWrite(f, newstring[1], Length(newstring));
ShowMessage('String successfully replaced!');
end;
Application.ProcessMessages;
end;
CloseFile(f);
end;
Login
Register
FAQ
Search
