PAM Updates Code: Well, a start anyway

This is the final bit I can get done, someone (like John) can take over from here.

Famous last words, eh? This is the second third fourth fifth sixth time I've updated this comment. Watch this space.

function TfrmMenu.GetInetFile (const fileURL, FileName: String): boolean;
//Acknoledgement: http://delphi.about.com/od/internetintranet/a/get_file_net.htm for the function
const
	BufferSize = 1024;
var
	hSession, hURL: HInternet;
	Buffer: array[1..BufferSize] of Byte;
	BufferLen: DWORD;
	f: File;
	sAppName: string;
begin
	result := false;
	sAppName := ExtractFileName(Application.ExeName) ;
	hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ;
	try
		hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0) ;
		try
			AssignFile(f, FileName) ;
			Rewrite(f,1) ;
		repeat
			InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen) ;
			BlockWrite(f, Buffer, BufferLen)
		until BufferLen = 0;
			CloseFile(f) ;
			result := True;
		finally
			InternetCloseHandle(hURL)
		end
	finally
		InternetCloseHandle(hSession)
	end
end;

// =====================================

procedure TfrmMenu.GetUpdatesINI();
// Download the updates INI from the PortableApps.com server
// Acknowledgements:
// * http://www.devarticles.com/c/a/Delphi-Kylix/Working-with-INI-Files-in-Delphi/2/
// * http://www.delphibasics.co.uk/RTL.asp?Name=TStringList
var
	appList: TINIFile;
	appListPath: TString;
	currentAppInfo: TINIFile;
	currentAppInfoPath: TString;
	allRemoteAppsList: TStringList;
	allLocalAppsList: TStringList;
	allNewAppsList: TStringList;
	response: Integer;
begin
	appListPath := ExtractFileDir(Application.ExeName) + '\Data\remote_updates.ini';
	if GetInetFile('http://external.portableapps.com/app_list.ini', appListPath) then
			appList:=TINIFile.Create(remoteUpdatesPath);
			appList.ReadSections(allRemoteAppsList);
			// For loops goes here to compare each section with the next
			// Something like this:
			allNewAppsList := TStringList.Create;
			for appCount := 0 to appList.Count-1 do
				appName := allRemoteAppsList[appCount];
				currentAppInfoPath := ExtractFileDir(ExtractFileDir(Application.ExeName)) + '\' + appName + '\App\AppInfo\appinfo.ini';
				if FileExists(currentAppInfoPath) then
					currentAppInfo := TINIFile.Create(currentAppInfoPath);
					if appList.ReadString(appName, 'PackageVersion', '1.0') > currentAppInfo.ReadString('Version', 'PackageVersion', '1.0') then
						response := MessageDlg('New update for ' + appName + 'available. Download?', mtWarning, mbYesNo, 0);
						//Handle response here, should be relatively easy
					end;
				end;
			end;
			DeleteFile(localUpdatesPath);
			RenameFile(remoteUpdatesPath, localUpdatesPath);
	else
		ShowMessage('Unable to download updates file. Please try again in 5 minutes and if the problem persists, report it to the forums');
end;

// =====================================

procedure TfrmMenu.GetAvailableApps();
// Download the updates INI from the PortableApps.com server
// Acknowledgements:
// * http://www.devarticles.com/c/a/Delphi-Kylix/Working-with-INI-Files-in-Delphi/2/
// * http://www.delphibasics.co.uk/RTL.asp?Name=TStringList
var
	remoteUpdates: TINIFile;
	remoteUpdatesPath: TString;
	localUpdates: TINIFile;
	localUpdatesPath: TString;
	allRemoteAppsList: TStringList;
	allLocalAppsList: TStringList;
	allNewAppsList: TStringList;
begin
	remoteUpdatesPath := ExtractFileDir(Application.ExeName) + '\Data\remote_updates.ini';
	localUpdatesPath := ExtractFileDir(Application.ExeName) + '\Data\local_updates.ini';
	if GetInetFile('http://external.portableapps.com/updates.ini', remoteUpdatesPath) then
		if FileExists(localUpdatesPath) then
			remoteUpdates:=TINIFile.Create(remoteUpdatesPath);
			remoteUpdates.ReadSections(allRemoteAppsList);
			localUpdates:=TINIFile.Create(localUpdatesPath);
			localUpdates.ReadSections(allLocalAppsList);
			// For loops goes here to compare each section with the next
			// Something like this:
			allNewAppsList := TStringList.Create;
			for appCount := 0 to allRemoteAppsList.Count-1 do
				appName := allRemoteAppsList[appCount];
				if not FileExists(ExtractFileDir(ExtractFileDir(Application.ExeName)) + '\' + appName + '\App\AppInfo\appinfo.ini') then
					allNewAppsList.Append(remoteUpdates.ReadString(appName, 'DisplayName'));
				end;
			end;
			DeleteFile(localUpdatesPath);
			RenameFile(remoteUpdatesPath, localUpdatesPath);
		else
			if Not RenameFile(remoteUpdatesPath, localUpdatesPath) then
				ShowMessage('Unable to rename updates file. Please make sure the Data directory is writable');
	else
		ShowMessage('Unable to download updates file. Please try again in 5 minutes and if the problem persists, report it to the forums');
end;

Note: I haven't compiled this, so I've got no idea if it works, but it should
Note 2: You'll also need GetInetFile for downloading part.

Edit 5: Well, the previous code only worked out if the server's version had been updated, which is useless. Updated with the proper code and now has a corresponding "getAvailableApps" which retrieves all the apps which the user doesn't have.
Edit 6: GetInetFile function now included
----
Ryan McCue.
Blog.
So all that Airbus-delay trouble over here in Europe is because of YOU!
Simeon.

Anyone care to comment? Maybe read this John?
----
Ryan McCue.
Blog.
So all that Airbus-delay trouble over here in Europe is because of YOU!
Simeon.