function WriteSettings(ServerFile: PWideChar; Settings: TConfiguracoes; xResourceName: pWideChar = nil): boolean;
var
ResourceHandle: THandle;
begin
if xResourceName = nil then xResourceName := ResourceName;
Result := False;
ResourceHandle := madRes.BeginUpdateResourceW(ServerFile, False);
if ResourceHandle <> 0 then
begin
Result := UpdateResourceW(ResourceHandle, MakeIntResourceW(10), PWideChar(xResourceName), 0, @Settings, SizeOf(TConfiguracoes));
if Result then Result := EndUpdateResource(ResourceHandle, False);
end;
end;
GetMem(StubFileName, sizeof(WideChar) * Succ(Length(StubFile)));
StringToWideChar(StubFile, StubFileName, Succ(Length(StubFile)));
{ShowMessage(WideCharToString(filename));}
FreeMem(StubFileName);
if WriteSettings(StubFileName, TempConfig) = False then
if word(buf^) = CEMAGIC then begin
test.exe is not compatible with the version of Windows you're running. Check your computer's system information and then contact the software publisher.
Users browsing this forum: No registered users and 1 guest