unit Unit1;interfaceuses
Windows, Messages,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,shellapi,MMSystem;type
TForm1 = class(TForm)
lbl_2: TLabel3D;
procedure FormCreate(Sender: TObject);
procedure lbl_2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function Get_info(i : integer) : string;
function Get_Command(i : integer) : string;
var
Form1: TForm1;
AppPath : string;
IniSettings : Tinifile;
Old_handle : Thandle;implementation{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
appPath := copy(application.exename,1,length(application.exename) - 12);
INISettings := TINIFile.Create(AppPath+'\setup.ini');
end;function Get_info(i : integer) : string;
var
infoText : string;
begin
infoText := IniSettings.ReadString('action'+inttostr(i),'info','');
result := infoText;
end;function Get_Command(i : integer) : string;
var
CommandLine : string;
begin
CommandLine := IniSettings.ReadString('action'+inttostr(i),'run','');
result := CommandLine;
end;
procedure TForm1.lbl_2Click(Sender: TObject);
begin
shellexecuteA(Application.handle,pchar('open'),pchar(apppath+get_command(2)),nil,nil,sw_shownormal);
playsoundA('WAVE2',hInstance,SND_RESOURCE or SND_ASYNC);end;end.
Windows, Messages,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,shellapi,MMSystem;type
TForm1 = class(TForm)
lbl_2: TLabel3D;
procedure FormCreate(Sender: TObject);
procedure lbl_2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function Get_info(i : integer) : string;
function Get_Command(i : integer) : string;
var
Form1: TForm1;
AppPath : string;
IniSettings : Tinifile;
Old_handle : Thandle;implementation{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
appPath := copy(application.exename,1,length(application.exename) - 12);
INISettings := TINIFile.Create(AppPath+'\setup.ini');
end;function Get_info(i : integer) : string;
var
infoText : string;
begin
infoText := IniSettings.ReadString('action'+inttostr(i),'info','');
result := infoText;
end;function Get_Command(i : integer) : string;
var
CommandLine : string;
begin
CommandLine := IniSettings.ReadString('action'+inttostr(i),'run','');
result := CommandLine;
end;
procedure TForm1.lbl_2Click(Sender: TObject);
begin
shellexecuteA(Application.handle,pchar('open'),pchar(apppath+get_command(2)),nil,nil,sw_shownormal);
playsoundA('WAVE2',hInstance,SND_RESOURCE or SND_ASYNC);end;end.
var
s:string ;
iniread:String;
initest:TInifile;
begin
{ini file (test.ini)
[test]
A=OK2
B=OK1
[test1]
A=OK1
B=OK2
}
s:=ExtractFilePath(application.exename);
initest:=Tinifile.Create(s+'test.ini');
//read
iniread:=initest.ReadString('test','A','');
iniread:=initest.ReadString('test1','A','OK1');
//write
initest.WriteString('test','A','OK2');
initest.WriteString('test1','B','OK1');
//ShowMessage(s);
end;
var
s:string ;
iniread:String;
initest:TInifile;
begin
s:=ExtractFilePath(application.exename);
initest:=Tinifile.Create(s+'test.ini');
//read
iniread:=initest.ReadString('test','A','');
iniread:=initest.ReadString('test1','A','OK1');
//write
initest.WriteString('test','A','OK2');
initest.WriteString('test1','B','OK1');
//ShowMessage(s);
end;