3
31337
Gość
ałc, ktos powiedzial kiedyś ze delphi jest proste :yes: :yes:
dla mnie prostszym sposobem byloby fseek i fwrite.
dla mnie prostszym sposobem byloby fseek i fwrite.
Borland Resource Compiler Version 5.40
Copyright Š 1990, 1999 Inprise Corporation. All rights reserved.
Error Could not open input file Cocuments.RC[/b]
Originally posted by djmentos
jak chcesz tak działać to lepiej idź spać albo grać ;/
Przerób sobie ten kod i gitara
no to pytam... może jestem troche przymulony po testach, ale jak odpale konfiguratora i klikne na buttona to mam komunikat że nie odnaleziono pliku hmm.. czy aby ten serwer nie powinien się generować ?...to zapyta w tym temacie a ja postaram mu sie pomoc[/b]
Musiał byś przeanalizować działanie. Ten program ma na celu nie generowanie kodu i kompilowanie go, tylko edycje stringów w serwerze. Więc plik konfigurowany wedle tego tutoriala musi znajdować się w folderze macierzystym konfiguratora. Zawsze możesz dodać serwer do zasobu (są o tym arty) i przy kliknięciu "Konfiguruj" wyrzucać można z zasobu serwer i po chwili zapisywać dane do stringów serwera. Będzie to wyglądać jak generowanie pliku choć powiem Ci że to i tak się gryzie z definicją generacji. Będzie to tylko ją przypominać wizualnie.no to pytam... może jestem troche przymulony po testach, ale jak odpale konfiguratora i klikne na buttona to mam komunikat że nie odnaleziono pliku hmm.. czy aby ten serwer nie powinien się generować ?bo jak odpale konfigurator z katalogu z serwer.exe to działa normalnie...[/b]
choć powiem Ci że to i tak się gryzie z definicją generacji. Będzie to tylko ją przypominać wizualnie.[/b]
procedure TForm1.Button2Click(Sender: TObject);
var index:word;
begin
if OpenDialog1.execute then
begin
image2.Picture.bitmap:=tbitmap.create;
image2.Picture.Bitmap.Width:=40;
image2.Picture.Bitmap.Height:=40;
image2.Picture.Bitmap.Canvas.Brush.Color:=Form1.Color;
image2.Picture.Bitmap.Canvas.Rectangle(0,0,image2.Width,image2.Height);
index:=0;
DrawIcon(image2.Picture.Bitmap.Canvas.Handle,4,4,
ExtractAssociatedIcon(hinstance,Pchar(OpenDialog1.FileName),
index));
end;
end;