System Windows 7 Pro 32
Code: Alles auswählen
#HTTP_QUERY_CONTENT_LENGTH=5
Procedure.q GetContentLength(Url$)
Protected FileSizet.s=Space(20),FileSize.q, Size,hINET,hURL
hINET=InternetOpen_("blub",0,0,0,0)
If hINET
hURL =InternetOpenUrl_(hINET,Url$,0,0,$80000000,0)
If hURL
Size=Len(FileSizet)
HttpQueryInfo_(hURL,#HTTP_QUERY_CONTENT_LENGTH,@FileSizet,@Size,#Null)
FileSize=Val(FileSizet)
InternetCloseHandle_(hURL)
InternetCloseHandle_(hINET)
Else
InternetCloseHandle_(hINET)
EndIf
EndIf
ProcedureReturn FileSize
EndProcedure
If FileSize( ProgramParameter(0)) > GetContentLength("http://test.exe")
Result = MessageRequester("Update", "Soll das Update durchgeführt werden?"+ProgramParameter(0), #PB_MessageRequester_YesNo)
a$ = "Das Ergebnis des vorherigen Requesters war: "
If Result = #PB_MessageRequester_Yes ; Ja-Schalter wurde gedrückt
URLDownloadToFile_(0,"http://test.exe",ProgramParameter(0),0,0)
Else ; Nein-Schalter wurde gedrückt
MessageRequester("Information", "Update abgebrochen!", #PB_MessageRequester_Ok)
EndIf
Else
MessageRequester("Information", "Keine Update vorhanden!", #PB_MessageRequester_Ok)
RunProgram(ProgramParameter(0))
EndIf


