1 |
< |
unit OneInst; |
1 |
> |
{ Downloaded from: http://www.michael-puff.de/Developer/Delphi/Importe/Nico/oneinst.zip } |
2 |
|
|
3 |
+ |
unit OneInst; |
4 |
|
interface |
4 |
– |
|
5 |
|
uses |
6 |
|
Windows, Messages; |
7 |
|
|
21 |
|
var |
22 |
|
{ Der Text den diese Variable hat sollte bei jedem neuen Programm geändert } |
23 |
|
{ werden und möglichst eindeutig (und nicht zu kurz) sein. } |
24 |
< |
UniqueName: array [0..MAX_PATH] of Char = 'EindeutigerNameFuerDasProgramm'#0; |
24 |
> |
UniqueName: array [0..MAX_PATH] of Char = 'Oni Un/Packer'#0; |
25 |
|
MutexHandle: THandle = 0; |
26 |
|
|
27 |
|
{ kleine Hilfsfunktion die uns die Kommandozeilenparameter entpackt } |