magic16 schrieb:
program Project1;
uses
Windows, Classes, Messages, System, SysUtils, ShellAPIEx, XPMan;
{$R *.res}
var
Root, WinDir, HostsFile, nginx, Flasher, MsXML, ErrorText: string;
TL, HostBak: TStringList;
function ExpandEnvironment(const strValue: string): string;
var
chrResult: array[0..1023] of Char;
wrdReturn: DWORD;
begin
wrdReturn := ExpandEnvironmentStrings(PChar(strValue), chrResult, 1024);
if wrdReturn = 0 then
Result := strValue
else
begin
Result := Trim(chrResult);
end;
end;
begin
// Prepare Variables
Root := ExtractFilePath(ParamStr(0));
WinDir:=ExpandEnvironment('%windir%');
nginx := Root + '\nginx\nginx.exe';
Flasher := Root + '\KDZ_FW_UPD_EN\UpTestEX_mod2_marwin.exe';
HostsFile:=WinDir+'\System32\Drivers\etc\hosts';
MsXML:= Root + '\KDZ_FW_UPD_EN\msxml.msi';
ErrorText:=
'Some important files are missing!'+#13+
'Get sure the Launcher is in the right Folder.'+#13+
'Can''t continue the Job, Program will Exit.';
if (not FileExists(nginx)) or (not FileExists(Flasher)) then
begin
MessageBox(0, Pchar(ErrorText), 'Error - Missing files', MB_ICONERROR);
exit;
end;
//MessageBox(0, 'test', 'test', MB_OK);
// Load "Hosts" file for Bacup
HostBak := TStringList.Create;
HostBak.LoadFromFile(HostsFile);
// Load and edit "Hosts" file
TL := TStringList.Create;
TL.LoadFromFile(HostsFile);
// Check for "csmg.lgmobile.com" and add if not exist
if Pos('csmg.lgmobile.com', LowerCase(TL.Text)) = 0 then
begin
TL.Append(#9+'127.0.0.1'+#9+'csmg.lgmobile.com');
end;
TL.SaveToFile(HostsFile);
TL.Free;
// start HTTP Server
if FileExists(nginx) then
begin
ShellExecuteAndWait(0, 'open', PChar(nginx), nil, PChar(ExtractFilePath(nginx)), 0, false);
end;
// Show the "NewInst.docx" of exists
if FileExists(Root + 'NewInst.docx') then
ShellExecuteAndWait(0, 'open', PChar(Root + 'NewInst.docx'), nil, nil, 1, false);
// Start LG Flash Tool
if FileExists(Flasher) then
begin
ShellExecuteAndWait(0, 'open', PChar(Flasher), nil, PChar(ExtractFilePath(Flasher)), 1, true);
end;
// Stop HTTP Server
if FileExists(nginx) then
begin
ShellExecuteAndWait(0, 'open', PChar(nginx), '-s stop', PChar(ExtractFilePath(nginx)), 0, true);
ShellExecuteAndWait(0, 'open', PChar(nginx), '-s quit', PChar(ExtractFilePath(nginx)), 0, true);
ShellExecuteAndWait(0, 'open', 'taskkill', '/im nginx.exe /f', nil, 0, true);
end;
// Restore Backuped "Hosts" file
HostBak.SaveToFile(HostsFile);
HostBak.Free;
end.
magic16 schrieb:beim öffnen wird lustiger weise bei mir gleichzeitig ms-office gestarte ... grins ...
kann man aber schliessen ohne andere auswirkungen...
uppps... das muss ja so sein...
groby29 schrieb:
Das Hardreset nicht funktioniert ist klar
Ja, dann ist die Hosts Datei nicht geändert und/oder der HTTP Server läuft nicht auf Port 9002
(WIn 7, ja) ...ich arbeite nicht mit User-Accounts [LIST]
[*]LG handy mit der 20A version Geflasht.
[*] Dann den R&D-Tool Abschnitt unten den Boot-loader genommen
[*]Hat auch so geklapt.
[*]CM 10.2 Geflascht + google
[*]Und dann Gestartet gedreht bis zum unfallen dann akku leer.
[/LIST]
einhuman197 schrieb:
einhuman197 schrieb:
Pascal54 schrieb:
EDIT: JA ich bitte darum mir die datei flashbar zu machen damit ich die im lg flash tool flashen kann ann sollte es ja gehen hab was anderes nicht verändert. Danke
