leggendo questo:
procedure UtilizzoRisorse;
var
hFind, hRes: THandle;
Resource: PChar;
begin
hFind:=FindResource(HInstance, 'IDRisorsa', 'TipoRisorsa');
if hFind<>0 then begin
hRes:=LoadResource(HInstance, hFind);
if hRes<>0 then begin
Resource := LockResource(hRes);
if Assigned(Resource) then
// operazioni sul file...
UnlockResource(hRes);
end;
FreeResource(hFind);
end;
end;
domanda ... se non ho capito male questo funziona senza estrarre il file dall'eseguibile.
mi puoi fare qualche esempio di utilizzo "operazioni sul File" ???
praticamente ho un file "prova.exe" e devo fare come "OPERAZIONE":
" prova.exe u opendialog1.FileName "
cosa che faccio estraendo il file nella directory principale ed eseguendo:
if opendialog1.execute then
begin
shellexecute (
handle,
'open',
pchar('hdftool.exe'),
pchar(' u '+'"'+opendialog1.FileName+'"'),
pchar(''),
sw_hide); // HIDE nasconde la finestra DOS di HDFTool
|