From cb267e6a23765c373bfe78fd5fd4465002f76506 Mon Sep 17 00:00:00 2001
From: kichik <kichik@212acab6-be3b-0410-9dea-997c60f758d6>
Date: Fri, 25 Oct 2002 17:45:34 +0000
Subject: [PATCH] txt->nsi

git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@1464 212acab6-be3b-0410-9dea-997c60f758d6
---
 Contrib/System/Example.nsi | 42 ++++++++++++++++++++++++++++++++++++++
 Contrib/System/Example.txt | 35 -------------------------------
 2 files changed, 42 insertions(+), 35 deletions(-)
 create mode 100644 Contrib/System/Example.nsi
 delete mode 100644 Contrib/System/Example.txt

diff --git a/Contrib/System/Example.nsi b/Contrib/System/Example.nsi
new file mode 100644
index 00000000..6507d716
--- /dev/null
+++ b/Contrib/System/Example.nsi
@@ -0,0 +1,42 @@
+Name "System.dll Test"
+
+OutFile "System.dll Test.exe"
+
+Section
+	; Memory for paths
+	System::Alloc 1024
+	Pop $1
+	; Get drives
+	System::Call 'kernel32::GetLogicalDriveStringsA(i 1024, i r1) i'
+	enumok:
+		; One more drive?
+		System::Call 'kernel32::lstrlenA(i r1) i.r2'
+		IntCmp $2 0 enumex
+
+		; Drive space
+		System::Call 'kernel32::GetDiskFreeSpaceExA(i r1, *l .r3, *l .r4, *l .r5) i'
+
+		; Pretty KBs
+		System::Int64Op $3 / 1024
+		Pop $3
+		System::Int64Op $4 / 1024
+		Pop $4
+		System::Int64Op $5 / 1024
+		Pop $5
+
+		; Get pretty drive path string
+		System::Call '*$1(&t1024 .r6)'
+		; Message box
+		System::Call 'user32::MessageBoxA(i $HWNDPARENT, t "Path: `$6`, Free for Caller: $3 kb, Free for All: $5 kb, Disk Size: $4 kb$\r$\nMore?", t "Disk spaces example", i 33) i.r0'
+		; User cancel?
+		IntCmp $0 2 enumex
+
+		; Next drive path
+		IntOp $1 $1 + $2
+		IntOp $1 $1 + 1
+		goto enumok
+
+	enumex: ; End of drives or user cancel
+		; Free memory for paths
+		System::Free $1
+SectionEnd
\ No newline at end of file
diff --git a/Contrib/System/Example.txt b/Contrib/System/Example.txt
deleted file mode 100644
index f51ed62d..00000000
--- a/Contrib/System/Example.txt
+++ /dev/null
@@ -1,35 +0,0 @@
-; Memory for paths 
-System::Alloc 1024 
-Pop $1 
-; Get drives 
-System::Call 'kernel32::GetLogicalDriveStringsA(i 1024, i r1) i' 
-enumok: 
-; One more drive? 
-System::Call 'kernel32::lstrlenA(i r1) i.r2' 
-IntCmp $2 0 enumex 
-
-; Drive space 
-System::Call 'kernel32::GetDiskFreeSpaceExA(i r1, *l .r3, *l .r4, *l .r5) i' 
-
-; Pretty KBs 
-System::Int64Op $3 / 1024 
-Pop $3 
-System::Int64Op $4 / 1024 
-Pop $4 
-System::Int64Op $5 / 1024 
-Pop $5 
-
-; Get pretty drive path string 
-System::Call '*$1(&t1024 .r6)' 
-; Message box 
-System::Call 'user32::MessageBoxA(i $HWNDPARENT, t "Path: `$6`, Free for Caller: $3 kb, Free for All: $5 kb, Disk Size: $4 kb", t "Disk spaces example", i 33) i.r0' 
-; User cancel? 
-IntCmp $0 2 enumex 
-
-; Next drive path 
-IntOp $1 $1 + $2 
-IntOp $1 $1 + 1 
-goto enumok 
-enumex: ; End of drives or user cancel 
-; Free memory for paths 
-System::Free $1
\ No newline at end of file