Добавление файлов
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Добавление файлов - 2011-11-04 21:34:09.976666
|
|
|
altcomm
Сообщений: 30
Оценки: 0
Присоединился: 2011-09-27 13:14:39.063333
|
Хочу написать программу для Minecraft, чтобы она добавляла выбранные файлы в файл AppData/Roaming/.minecraft/bin/minecraft.jar или по пути AppData/.minecraft/bin/minecraft.jar. Этот файл можно раскрыть архиватором, как это сделать в программе, помогите с кодом.
|
|
|
|
|
RE: Добавление файлов - 2011-11-05 08:30:14.570000
|
|
|
class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
Этот исходник в помощь. А для путей (AppData) юзай функцию GetSpecialPath.
|
|
|
|
|
RE: Добавление файлов - 2011-11-05 08:53:12.776666
|
|
|
altcomm
Сообщений: 30
Оценки: 0
Присоединился: 2011-09-27 13:14:39.063333
|
Спасибо, но страница не найдена. Пишет когда я открываю ссылку на исходник.
|
|
|
|
|
RE: Добавление файлов - 2011-11-05 08:58:03.106666
|
|
|
class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
Это баг форума :) Из-за бага дам вот такую ссылку –> http://tinyurl.com/3nxqau3 (в поиске первая ссылка)
|
|
|
|
|
RE: Добавление файлов - 2011-11-05 09:23:39.396666
|
|
|
altcomm
Сообщений: 30
Оценки: 0
Присоединился: 2011-09-27 13:14:39.063333
|
Вот код исходника. Что тут надо изменить что бы он добавлял папки с файлами в заданный по умолчанию путь к файлу minecraft.jar, вот его путь AppData/Roaming/.minecraft/bin/minecraft.jar или AppData/.minecraft/bin/minecraft.jar
unit UCompressFile;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls;
type
TFCompressFile = class(TForm)
EditFile: TEdit;
cmdCompress: TButton;
lblFile: TLabel;
SbFile: TSpeedButton;
OpenDialog: TOpenDialog;
cmbLevel: TComboBox;
lblLevel: TLabel;
cmdUncompress: TButton;
procedure cmdCompressClick(Sender: TObject);
procedure SbFileClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure cmdUncompressClick(Sender: TObject);
private
{ Private declarations }
gsExePath : string;
public
{ Public declarations }
end;
var
FCompressFile: TFCompressFile;
implementation
{$R *.dfm}
uses UtilityPasZlib;
procedure TFCompressFile.SbFileClick(Sender: TObject);
var
sPath: string;
begin
with OpenDialog do
begin
DefaultExt:='';
Options:=[ofFileMustExist];
sPath:=ExtractFilePath(EditFile.Text);
if sPath=''
then sPath:=gsExePath;
InitialDir:=sPath;
FileName:='';
if Execute
then
begin
if UpperCase(gsExePath)=UpperCase(ExtractFilePath(FileName))
then EditFile.Text:=ExtractFileName(FileName)
else EditFile.Text:=FileName;
end;
end;
end;
procedure TFCompressFile.FormCreate(Sender: TObject);
begin
gsExePath:=ExtractFilePath(Application.ExeName);
end;
function CutExt(s: string): string;
begin
Result:=Copy(s,1,length(s)-length(ExtractFileExt(s)));
end;
procedure TFCompressFile.cmdCompressClick(Sender: TObject);
var
sFilename: string;
Level: TCompLevel;
begin
Screen.Cursor:=crHourGlass;
Level:=clDefault;
try
sFilename:=trim(EditFile.Text);
if sFilename<>''
then
begin
if cmbLevel.Text='Fastest'
then Level:=clNone
else
if cmbLevel.Text='Max'
then Level:=clMax;
CompressFile(sFilename,sFilename+'.zip',Level);
ShowMessage('File successfully compressed!');
end;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TFCompressFile.cmdUncompressClick(Sender: TObject);
var
sFilename, sDestFile: string;
begin
Screen.Cursor:=crHourGlass;
try
sFilename:=trim(EditFile.Text);
if sFilename<>''
then
begin
sDestFile:=sFilename;
if UpperCase(ExtractFileExt(sFileName))<>'.ZIP'
then
begin
sDestFile:=sFilename;
sFilename:=sDestFile+'.zip';
end
else sDestFile:=CutExt(sFilename);
UnCompressFile(sFilename,sDestFile);
ShowMessage('File successfully uncompressed!');
end;
finally
Screen.Cursor := crDefault;
end;
end;
end.
|
|
|
|
|
|
