-
Notifications
You must be signed in to change notification settings - Fork 0
/
OVEXIT.PAS
45 lines (39 loc) · 903 Bytes
/
OVEXIT.PAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Unit OVExit;
INTERFACE
Procedure ExitPrg;
IMPLEMENTATION
Uses Adele,Systex,Systems,Isatex,Dials,OVIde,Apps;
Procedure ExitPrg;
Var
PathDesktop:String;
Handle:Hdl;
I:Integer;
TW:^EditorApp;
Begin
{Sauvegarde le Desktop}
PathDesktop:=MaltePath+'OVP.DSK';
{ Cr‚ation du desktop }
If StrUp(PathDesktop)<>'NONE'Then Begin
If Windows.Lst.COUNT=0Then DeleteFile(PathDesktop) { Pas fenˆtre donc pas desktop...}
Else
Begin
Handle:=FileCreate(PathDesktop);
If(Handle=errHdl)Then ErrMsgOk('Impossible de cr‚er un fichier de ®Desktop¯!')
Else
Begin
For I:=0to Windows.Lst.COUNT-1do Begin
TW:=HPtr(Windows);
If(TW=NIL)Then Break;
Case HModel(Windows)of
0:Break;
snEdt:PutFileTxtLn(Handle,'ED:'+TW^.EditName+' '+
WordToStr(TW^.PX)+','+WordToStr(TW^.P));
End;
HNext(Windows);
End;
FileClose(Handle);
End;
End;
End;
End;
END.