type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; implementation
procedure TForm1.Button1Click(Sender: TObject); begin begin with TresourceStream.Create(HINSTANCE,\'DAT001\',RT_RCDATA) do Try position := 0; SaveToFile(\'C:\\test.dat\'); finally free; end; end;
end; end.
Min Resource fil: //START OF FILE DAT001 RCDATA \"test.dat\" //END OF FILE
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
Min Resource fil: //START OF FILE DAT001 RCDATA \"test.dat\" <-- path \"c:\\test.dat\" //END OF FILE
Stoney
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.