Arquivo Auto Extraível

[Guest - Thales -]

É o seguinte, gente, eu estou precisando fazer um arquivo executável que extrai dele mesmo algums outros arquivos.... tipo um instalador... tá ligado?..... Aí eu dou o comando -> f:=fileopen(paramstr[0]).... para abrir o próprio programa e copio tudo usando fileread e filewrite mesmo...... Só que os arquivos ficam com tamanho certinho, mas tudo com 0, não grava nada...... eu acho que é alguma coisa com abrir uma arquivo que já estaria aberto, já que o programa tá rodando, não é?....... alguém sabe o que eu posso fazer. Muito Obrigado!

[Thales Pontes Martins]

Não precisa mais responder não gente. num tem nada de errado com extrair dados do próprio executável não. Eu é que estava colocando um comando errado mesmo ->

FileSeek(sor,0,point);

Ao invés de

FileSeek(sor,point,0);

Desculpem :D .