Люди подскажите пожалуйста функцию с помощью которой я бы смог отредактировать .cfg файл?, если можно поподробнее я новечёк.
Мой пример:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Dialogs, StdCtrls, ExtCtrls, XPMan, ShellAPI, Forms;
type
TForm1 = class(TForm)
Image2: TImage;
Label1: TLabel;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Label2: TLabel;
Image1: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1Click(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image3Click(Sender: TObject);
procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Label3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
AllD: Boolean;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, '', 'http://game.vdonsk.ru/reg/', '', '', 0);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image3.Visible := True;
AllD := False;
end;
procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image4.Visible := True;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Image4.Visible := False;
Close;
end;
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if AllD=True then exit;
Image3.Visible := False;
Image4.Visible := False;
Image6.Visible := False;
Image7.Visible := False;
AllD := True;
end;
procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image6.Visible := True;
AllD := False;
end;
procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image7.Visible := True;
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
Image7.Visible := False;
if(LabeledEdit1.Text<>'')and(LabeledEdit2.Text<>'')then begin
ShellExecute(0, '', 'cmd.exe', PChar('/c echo name "'+LabeledEdit1.Text+'">>cstrike\config.cfg'), '', 0);
ShellExecute(0, '', 'cmd.exe', PChar('/c echo setinfo _me "'+LabeledEdit2.Text+'">>cstrike\config.cfg'), '', 0);
ShellExecute(0, '', 'hl.exe', PChar('-game cstrike -console +connect 193.111.2.244:27015'), '', 0);
Close;
end else
MessageBox(0, WideString('Заполните все поля!'), WideString('Просьба'), 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
LabeledEdit1.EditLabel.Caption := WideString('Логин:');
LabeledEdit2.EditLabel.Caption := WideString('Пароль:');
Image3.Hint := WideString('Закрыть');
Image4.Hint := WideString('Закрыть');
Image6.Hint := WideString('Начать игру');
Image7.Hint := WideString('Начать игру');
Label1.Hint := WideString('Регистрация на сервере');
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
Image6.OnClick(Form1);
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
Form2.Show;
end;
end.
Выделенный код это то что мне надо сделать при момощи Win32 API, а не через cmd
Заранее спасибо.