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
46
47
|
PROGRAM AslTest;
uses Exec, Utility, Asl, msgbox, systemvartags;
{
History:
Now use TAGS and pas2c.
Removed the opening of asl.library,
handled by unit asl.
1 Nov 1998.
Added MessageBox for report.
31 Jul 2000.
Changed to use systemvartags and
AllocAslRequestTags.
09 Nov 2002.
nils.sjoholm@mailbox.swipnet.se
}
VAR
fr : pFileRequester;
dummy : BOOLEAN;
BEGIN
fr := AllocAslRequestTags(ASL_FileRequest,[
ASLFR_InitialPattern,'#?',
ASLFR_TitleText,'Test av ASL-Requester by NS',
ASLFR_DoPatterns,ltrue,
TAG_DONE]);
IF fr <> nil THEN BEGIN
dummy := AslRequest(fr,NIL);
if dummy then begin
MessageBox('Test of Asl',
' The path is :' +
strpas(fr^.rf_Dir) +
chr(10) +
'And the file is :' +
strpas(fr^.rf_File),
'OK');
end else MessageBox('Test of Asl','You canceled','OK');
FreeAslRequest(fr);
END;
END.
|
