diff --git a/install/winNT gui/setup.bpr b/install/winNT gui/setup.bpr
deleted file mode 100644
index 035bc7b..0000000
--- a/install/winNT gui/setup.bpr
+++ /dev/null
@@ -1,121 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-[Version Info]
-IncludeVerInfo=0
-AutoIncBuild=0
-MajorVer=1
-MinorVer=0
-Release=0
-Build=0
-Debug=0
-PreRelease=0
-Special=0
-Private=0
-DLL=0
-Locale=1036
-CodePage=1252
-
-[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
-LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
-
-[Debugging]
-DebugSourceDirs=$(BCB)\source\vcl
-
-[Parameters]
-RunParams=
-Launcher=
-UseLauncher=0
-DebugCWD=
-HostApplication=
-RemoteHost=
-RemotePath=
-RemoteLauncher=
-RemoteCWD=
-RemoteDebug=0
-
-[Compiler]
-ShowInfoMsgs=0
-LinkDebugVcl=0
-LinkCGLIB=0
-
-[CORBA]
-AddServerUnit=1
-AddClientUnit=1
-PrecompiledHeaders=1
-
-[Language]
-ActiveLang=
-ProjectLang=
-RootDir=
-
-
\ No newline at end of file
diff --git a/install/winNT gui/setup.cpp b/install/winNT gui/setup.cpp
deleted file mode 100644
index dec5b3e..0000000
--- a/install/winNT gui/setup.cpp
+++ /dev/null
@@ -1,33 +0,0 @@
-//---------------------------------------------------------------------------
-
-#include
-#pragma hdrstop
-//---------------------------------------------------------------------------
-USEFORM("Unit1.cpp", Form1);
-//---------------------------------------------------------------------------
-WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
-{
- try
- {
- Application->Initialize();
- Application->CreateForm(__classid(TForm1), &Form1);
- Application->Run();
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- catch (...)
- {
- try
- {
- throw Exception("");
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- }
- return 0;
-}
-//---------------------------------------------------------------------------
diff --git a/install/winNT gui/setup.res b/install/winNT gui/setup.res
deleted file mode 100644
index 53d1acc..0000000
Binary files a/install/winNT gui/setup.res and /dev/null differ
diff --git a/install/winNT gui/setup.tds b/install/winNT gui/setup.tds
deleted file mode 100644
index d4db614..0000000
Binary files a/install/winNT gui/setup.tds and /dev/null differ
diff --git a/install/winNT gui/unit1.cpp b/install/winNT gui/unit1.cpp
deleted file mode 100644
index 2b3fc55..0000000
--- a/install/winNT gui/unit1.cpp
+++ /dev/null
@@ -1,166 +0,0 @@
-//---------------------------------------------------------------------------
-
-#include
-#include
-#include
-#include
-#include
-#pragma hdrstop
-
-#include "Unit1.h"
-//---------------------------------------------------------------------------
-#pragma package(smart_init)
-#pragma resource "*.dfm"
-TForm1 *Form1;
-HANDLE hDrive;
-DISK_GEOMETRY dg_flop_geom;
-AnsiString lecteur="b:";
-AnsiString device="\\\\.\\"+lecteur;
-//---------------------------------------------------------------------------
-__fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
-{
-}
-//---------------------------------------------------------------------------
-char * GetLastErrorString(void)
-{
- LPVOID lpMsgBuf;
-
- FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
- NULL, GetLastError(), MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
- (LPTSTR) &lpMsgBuf, 0, NULL);
-
- return (char *)lpMsgBuf;
-}
-//---------------------------------------------------------------------------
-ShowMessages(AnsiString msg)
-{
- Form1->Memo1->Lines->Add(msg);
-}
-//---------------------------------------------------------------------------
-void __fastcall TForm1::FormShow(TObject *Sender)
-{
-DWORD dwNotUsed;
-DWORD error=0;
-
- hDrive = CreateFile(device.c_str(), GENERIC_WRITE,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,NULL);
- ShowMessages("Ouverture du peripherique "+lecteur);
- if (hDrive == INVALID_HANDLE_VALUE) {
- ShowMessages("Erreur : "+AnsiString(GetLastErrorString()));
- error=1;
- }
- if(error!=1&&ShowMessages("Determination de la geometrie ")&&DeviceIoControl(hDrive, IOCTL_DISK_GET_DRIVE_GEOMETRY, NULL,0, &dg_flop_geom, sizeof(dg_flop_geom),&dwNotUsed, NULL) == FALSE) {
- ShowMessages("Erreur : "+AnsiString(GetLastErrorString()));
- error=1;
- }
- if(error!=1&&(dg_flop_geom.MediaType==FixedMedia||dg_flop_geom.MediaType==RemovableMedia||dg_flop_geom.MediaType==Unknown))
- {
- ShowMessages("Erreur : Ceci n'est pas une disquette !");
- error=1;
- }
- if (error!=1&&ShowMessages("Positionnement sur le secteur 0")&&SetFilePointer(hDrive, 0, NULL, FILE_BEGIN) == -1) {
- ShowMessages("Erreur : "+AnsiString(GetLastErrorString()));
- error=1;
- }
- if (error!=1)
- {
- drive->Caption=lecteur.UpperCase();
- track->Caption=IntToStr(dg_flop_geom.Cylinders.LowPart);
- sector->Caption=IntToStr(dg_flop_geom.SectorsPerTrack);
- size->Caption=IntToStr(dg_flop_geom.BytesPerSector);
- head->Caption=IntToStr(dg_flop_geom.TracksPerCylinder);
- allsize->Caption=IntToStr(dg_flop_geom.BytesPerSector*dg_flop_geom.Cylinders.LowPart*dg_flop_geom.SectorsPerTrack*dg_flop_geom.TracksPerCylinder);
- allsector->Caption=IntToStr(dg_flop_geom.Cylinders.LowPart*dg_flop_geom.SectorsPerTrack*dg_flop_geom.TracksPerCylinder);
- }
- else
- {
- CloseHandle(hDrive);
- }
-}
-//---------------------------------------------------------------------------
-void __fastcall TForm1::Button1Click(TObject *Sender)
-{
- if (hDrive == NULL||dg_flop_geom.TracksPerCylinder>2||dg_flop_geom.TracksPerCylinder==0)
-
- {
- ShowMessages("Aucun support valide detecté !");
- }
- else
- {
- int fdboot;
- DWORD error=0;
- DWORD dwBsWritten;
- char * buffer;
- AnsiString bootfile="data/boot.bin";
- ShowMessages("Allocation de mémoire ");
- buffer = (char *)malloc(dg_flop_geom.BytesPerSector);
- ShowMessages("Ouverture et installation du fichier de boot "+bootfile);
- if ((fdboot = _rtl_open(bootfile.c_str(),O_RDONLY | O_BINARY)) == -1 )
- {
- ShowMessages("Erreur : Fichier de boot introuvable");
- error=1;
- }
- if (error!=1&&_read(fdboot, buffer, dg_flop_geom.BytesPerSector)!= dg_flop_geom.BytesPerSector)
- {
- ShowMessages("Erreur : Fichier de boot de taille incorrecte !");
- error=1;
- }
- if (error!=1&&WriteFile(hDrive, buffer, dg_flop_geom.BytesPerSector, &dwBsWritten, NULL) == 0)
- {
- ShowMessages("Ecriture impossible sur le secteur de boot !");
- error=1;
- }
- _rtl_close(fdboot);
- if (error!=1)
- {
- struct ffblk files;
- int done;
- int number=0;
- ShowMessages("Détermination des fichiers a copier");
- done = findfirst("data/*.*",&files,0);
- while (!done)
- {
- number++;
- done = findnext(&files);
- }
- install->Max=number;
- install->Min=0;
- install->Position=0;
- ShowMessages("Copie des fichiers de cos2000");
- done = findfirst("data/*.*",&files,0);
- while (!done)
- {
- ShowMessages(AnsiString(files.ff_name).LowerCase());
- if (!CopyFile((AnsiString("data/")+AnsiString(files.ff_name)).c_str(),(lecteur+"\\"+AnsiString(files.ff_name)).c_str(),false))
- {
- ShowMessages("Erreur : fichier impossible a copier"+AnsiString(GetLastErrorString()));
- error=1;
- break;
- }
- done = findnext(&files);
- install->Position++;
- }
- if (!error)
- {
- ShowMessages("Installation terminée !");
- Button2->Visible=false;
- Button1->Visible=false;
- Button3->Visible=true;
- }
- else
- ShowMessages("Installation echoué !");
- }
- free(buffer);
- }
-}
-//---------------------------------------------------------------------------
-void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
-{
- CloseHandle(hDrive);
-}
-//---------------------------------------------------------------------------
-void __fastcall TForm1::Button3Click(TObject *Sender)
-{
-Close();
-}
-//---------------------------------------------------------------------------
diff --git a/install/winNT gui/unit1.ddp b/install/winNT gui/unit1.ddp
deleted file mode 100644
index cdc0ee8..0000000
Binary files a/install/winNT gui/unit1.ddp and /dev/null differ
diff --git a/install/winNT gui/unit1.dfm b/install/winNT gui/unit1.dfm
deleted file mode 100644
index b0445c3..0000000
--- a/install/winNT gui/unit1.dfm
+++ /dev/null
@@ -1,184 +0,0 @@
-object Form1: TForm1
- Left = 418
- Top = 273
- Width = 599
- Height = 371
- Caption = 'Installation de COS2000'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 288
- Top = 304
- Width = 75
- Height = 25
- Caption = 'installer...'
- TabOrder = 0
- OnClick = Button1Click
- end
- object install: TProgressBar
- Left = 16
- Top = 264
- Width = 553
- Height = 25
- Min = 0
- Max = 100
- TabOrder = 1
- end
- object Button2: TButton
- Left = 208
- Top = 304
- Width = 75
- Height = 25
- Caption = 'support'
- TabOrder = 2
- OnClick = FormShow
- end
- object Memo1: TMemo
- Left = 192
- Top = 24
- Width = 377
- Height = 225
- ReadOnly = True
- TabOrder = 3
- end
- object GroupBox1: TGroupBox
- Left = 16
- Top = 120
- Width = 161
- Height = 129
- Caption = 'G'#233'om'#233'trie'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- object track: TLabel
- Left = 96
- Top = 60
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- object Label4: TLabel
- Left = 24
- Top = 60
- Width = 34
- Height = 13
- Caption = 'Pistes :'
- end
- object Label5: TLabel
- Left = 24
- Top = 28
- Width = 48
- Height = 13
- Caption = 'Secteurs :'
- end
- object sector: TLabel
- Left = 96
- Top = 28
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- object head: TLabel
- Left = 96
- Top = 44
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- object Label6: TLabel
- Left = 24
- Top = 44
- Width = 33
- Height = 13
- Caption = 'Tetes :'
- end
- object Label8: TLabel
- Left = 24
- Top = 84
- Width = 69
- Height = 13
- Caption = 'Taille secteur :'
- end
- object size: TLabel
- Left = 96
- Top = 84
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- end
- object GroupBox2: TGroupBox
- Left = 16
- Top = 16
- Width = 161
- Height = 97
- Caption = 'Support'
- TabOrder = 5
- object Label1: TLabel
- Left = 24
- Top = 24
- Width = 42
- Height = 13
- Caption = 'Lecteur :'
- end
- object drive: TLabel
- Left = 88
- Top = 24
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- object Label2: TLabel
- Left = 24
- Top = 40
- Width = 31
- Height = 13
- Caption = 'Taille :'
- end
- object allsize: TLabel
- Left = 88
- Top = 40
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- object Label3: TLabel
- Left = 24
- Top = 56
- Width = 58
- Height = 13
- Caption = 'N'#176'secteurs :'
- end
- object allsector: TLabel
- Left = 88
- Top = 56
- Width = 31
- Height = 13
- Caption = 'Aucun'
- end
- end
- object Button3: TButton
- Left = 248
- Top = 304
- Width = 75
- Height = 25
- Caption = 'Quitter'
- TabOrder = 6
- Visible = False
- OnClick = Button3Click
- end
-end
diff --git a/install/winNT gui/unit1.h b/install/winNT gui/unit1.h
deleted file mode 100644
index 6d0d3a7..0000000
--- a/install/winNT gui/unit1.h
+++ /dev/null
@@ -1,47 +0,0 @@
-//---------------------------------------------------------------------------
-
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include
-#include
-#include
-#include
-#include
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published: // IDE-managed Components
- TButton *Button1;
- TProgressBar *install;
- TButton *Button2;
- TMemo *Memo1;
- TGroupBox *GroupBox1;
- TLabel *track;
- TLabel *Label4;
- TLabel *Label5;
- TLabel *sector;
- TLabel *head;
- TLabel *Label6;
- TLabel *Label8;
- TLabel *size;
- TGroupBox *GroupBox2;
- TLabel *Label1;
- TLabel *drive;
- TLabel *Label2;
- TLabel *allsize;
- TLabel *Label3;
- TLabel *allsector;
- TButton *Button3;
- void __fastcall FormShow(TObject *Sender);
- void __fastcall Button1Click(TObject *Sender);
- void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
- void __fastcall Button3Click(TObject *Sender);
-private: // User declarations
-public: // User declarations
- __fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif