unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, TabNotBk, ShellAPI;
type
TForm1 =
class(TForm)
TabbedNotebook1: TTabbedNotebook;
Label1: TLabel;
...
//OnCreate
procedure OnCreate(Sender: TObject);
//
procedure Button1Click(Sender: TObject);
...
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.OnCreate(Sender: TObject);
//LoadDRPEncSettings
begin
if not FileExists('
C:\DRPEnc.drpset')
then MessageDlg('
Sorry! You have first to setup DRPEnc. Click on "Welcome" to set it up.',mtWarning,[mbOK],0);
if FileExists('
C:\DRPEnc.drpset')
then
begin
form1.ListLoadSettings.Items.LoadFromFile('
C:\DRPEnc.drpset');
form1.Edit1.text:=form1.ListLoadSettings.Items[0];
form1.Edit2.text:=form1.ListLoadSettings.Items[1];
form1.Edit3.text:=form1.ListLoadSettings.Items[2];
form1.Edit4.text:=form1.ListLoadSettings.Items[3];
form1.Edit5.text:=form1.ListLoadSettings.Items[4];
form1.Edit6.text:=form1.ListLoadSettings.Items[5];
form1.Edit7.text:=form1.ListLoadSettings.Items[6];
form1.Edit8.text:=form1.ListLoadSettings.Items[7];
form1.Edit9.text:=form1.ListLoadSettings.Items[8];
form1.Edit10.text:=form1.ListLoadSettings.Items[9];
form1.Edit11.text:=form1.ListLoadSettings.Items[10];
if form1.CheckBox14.Checked
then form1.edit14.enabled:=true;
end;
end;
//Welcome Screen - Setup DRPEnc
//mencoder
procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;
end.