- 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
function WRITESTRINGINREG(HK:HKEY;Key:string;CanCreate:boolean;Name:string;Value:string):boolean;
var
reg: TRegistry;
begin
Result:=false;
reg := TRegistry.Create;
reg.RootKey := HK;
reg.LazyWrite := false;
if reg.OpenKey(Key,CanCreate)=true then
begin
reg.WriteString(Name,Value);
Result:=true;
end else
begin
Result:=false;
end;
reg.CloseKey;
reg.free;
end;
>>- В Windows Me был добавлен еще один файл CLASSES.DAT.
а у тебя какой?
он не умеет 16ти битный код небось
там нужен был паскаль и OWL
А ещё, чтобы приложение, скомпилированное в Дельфи, запустилось в Win32s, нужно было настроить встроенный линкер Дельфей, чтобы он не отрезал таблицу релокейшнов, иначе не запустится. И всё равно был шанс обломаться, если программа использовала какую-нибудь функцию Win32, которую Win32s не умело эмулировать.