Delphi Win32 prg til at køre automatisk som Run as administrator

Upsss glemte at skrive at det Vista det skal køre på

Hvad med en Delphi-service på maskinen eller er det kun i forbindelse med installation? En service er ikke så svær når man lige læser Tolderlunds intro: http://www.tolderlund.eu/delphi/service/service.htm

Kan du ikke bare tildele dit login administratorrettigheder?

Jo, men hvordan det er jo noget programmet skal tildele sig selv under installation på den enkelte brugers computer. Der er lavet et installationsjob via winzip som virker perfekt, men når programmet som er blevet installeret skal startes, skal det startes med "Run as administrator", hvis du forstår hvad jeg mener

Er der slet ikke nogen som har gode ideer til at løse mit problem??

Hvis det er et spil du skal installere bør det ske til en pc der har administrationsrettigheder til den lokale disk. Enhver ordentlig PC plejer da at være sat op på den måde, ikke? Andet vil være et brud på Windows' "sikkerhedspolitik".

Du kan bruge en manifest-fil til at fortælle at administratorrettigheder kræves. Hvis du bruger Delphi 2007 mener jeg der er en komponent med du kan bruge, men se ellers http://developersoven.blogspot.com/2007/02/leveraging-vistas-uac-with-delphi-part.html.

Alternativet er at ændre programmet så det aldrig skal skrive uden for brugerprofilen (dvs. hold dig til HKCU og C:\Users\<aktuelt profilnavn>). Der er ingen problemer med at læse fra C:\Programmer, så længe du ikke er røget i Folder Redirection (så får du muligvis andre filer hvis programmet bliver kørt som administrator).

Tak, det var noget af en lang forklaring, måske er der nogen der ved hvorledes man får sat "Run as administrator" i shortcut filen .lnk når man opretter denne

Det er jo netop idéen med UAC - at man ikke skal kunne gemme data i "program files" mappen. Men - der er jo en anden løsning. Du kan gemme data i "Application data". Enten "Application data" for "brugeren" eller "alle brugere".

Dermed har du en mappe specifikt for dit program, og alle rettigheder er tilstede - og UAC er overholdt.

Her er kode for at hente path til mappen.
"folder" er en integer, og du skal benytte enten
CSIDL_COMMON_APPDATA eller CSIDL_LOCAL_APPDATA.
Førstnævnte er "alle brugere" og sidstnævnte er den specifikke bruger.

Husk - SHFolder i Uses.

function GetSpecialFolderPath(folder : integer) : string;
const
  SHGFP_TYPE_CURRENT = 0;
var
  path: array [0..MAX_PATH] of char;
begin
  if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
    Result := path
  else
    Result := '';
end;