Root:=InstCDPath, que es un string del registro.
Exactamente:
c:\program files\ultima online 2d
No entiendo que es lo que falla, pero ni crea login.cfg ni ejecuta client.exe .
Código Delphi
[-]procedure TForm1.BitBtn1Click(Sender: TObject);
var
Root: String;
begin
With TRegistry.create do begin
rootkey:=HKEY_Local_machine;
if OpenKey('SOFTWARE\Origin Worlds Online\ultima online\1.0',false) then begin
root:=ReadString('InstCDPath');
end;
end;
With TStrings.create do begin
add(';Login del servidor UoDm www.uodragonesmuertos.es.tl');
add('LoginServer=dragones-muertos.no-ip.org');
SaveToFile(root+'\login.cfg');
end;
shellapi.ShellExecute(form1.ClientHandle,nil,PChar(root+'\client.exe'),nil,nil,SW_SHOWNORMAL);end;