🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #334899

Re: Delphi XE i numer wersji SVN

#334899
From: PaSkol
Date: Mon, 23 Jan 2012 20:37
48 lines
2514 bytes
W dniu 2012-01-23 21:25, R.e.m.e.K pisze:
> Dnia Mon, 23 Jan 2012 18:08:46 +0100, Tomek napisał(a):
>> Ja mam małego batcha odpalanego automatycznie przed buildem o
>> następującej treści:
>>
>> subwcrev . app.src\AppVer.rc.tmpl app.src\AppVer.rc
>> brcc32 app.src\AppVer.rc
>>
>> W wyniku jego działania i dołączenia pliku AppVer.res do projektu numer
>> rewizji występuje u mnie jako numer builda.
>
> A skad masz plik *.rc z aktualna wersja programu? Delphi uzywa wszak
> skompilowanych juz plikow z zasobami.

Ale możesz do tych zasobów dodać coś od siebie ;). Wystarczy, że 
wyłączysz dodawanie tej informacji z poziomu opcji projektu, a 
spowodujesz, że będzie się dołączało do projektu dodatkowo.

Ja tak robię, jeśli chcę, aby program wymagał do uruchomienia konta 
administrator. Dodaję do projektu plik:

RequestAdminAccount.rc

to powoduje dodanie do pliku projektu dyrektywy:

{$R 'RequestAdminAccount.res' 'RequestAdminAccount.rc'}

i wkomponowanie tegoż zasobu do zasobów programu podczas kompilacji. 
Trzeba oczywiście wyłączyć w opcjach projektu, w gałęzi Application, 
opcję "Use Runtime Themes" i zastąpić generowany przez nią XML swoim, ze 
zmienionym fragmentem:

<requestedExecutionLevel
   level="requireAdministrator"
   uiAccess="false"/>

A sam plik RequestAdminAccount.rc zdefiniować następująco:

1 24 "EnforceAdminAccout.manifest"

gdzie "EnforceAdminAccout.manifest" zawiera właśnie ów zmodyfikowany XML.


-- 
Dearth PaSkol

- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Technical Details
Message-ID: <jfkgfn$m7e$1@inews.gazeta.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
References: <jfjsts$gig$1@inews.gazeta.pl> <4f1d941f$1@news.home.net.pl> <nwduvqi1wpz.dlg@hell.heaven>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: PaSkol <DearthNOSPAMpaskol@op.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: Delphi XE i numer wersji SVN
Date: Mon, 23 Jan 2012 21:37:54 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 48
Message-ID: <jfkgfn$m7e$1@inews.gazeta.pl>
References: <jfjsts$gig$1@inews.gazeta.pl> <4f1d941f$1@news.home.net.pl> <nwduvqi1wpz.dlg@hell.heaven>
NNTP-Posting-Host: host-31-6-138-70.dynamic.mm.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1327351095 22766 31.6.138.70 (23 Jan 2012 20:38:15 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Mon, 23 Jan 2012 20:38:15 +0000 (UTC)
X-User: paskol
In-Reply-To: <nwduvqi1wpz.dlg@hell.heaven>
User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:9.0) Gecko/20111222 Thunderbird/9.0.1
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit