"Update" als in Name der Exe
Verfasst: 05.10.2012 13:43
Ich habe gerade eine kleine "Update.exe" für mein Programm geschrieben um mich gewundert, das Windows nun Adminrechte beim ausführen der Datei haben wollte und da ist mir aufgefallen, das sowie der Name in "Neu.exe" geändert habe, es nicht mehr so ist. Versteh dies jemand?
System Windows 7 Pro 32
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